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PREFACE 


This manual describes the XVM UNICHANNEL (UNICHANNEL) Software System 
and its primary component PIREX, the peripheral processor executive. 

No attempt is made in this document to describe the various UNICHANNEL 
hardware instructions; those are explained in the UNICHANNEL-15 SYS- 
tem Maintenance Manual. However, examples of instruction sequences 
will be used when necessary to clarify programming conventions or 
illustrate important aspects of the UNICHANNEL Software System. 

It is recommended that the reader have a thorough understanding of the 
UNICHANNEL hardware components before attempting to proceed with this 
manual. The user who plans to use the UNICHANNEL Software System in 
conjunction with some operating system on the XVM, and not modify 
it, should gain a thorough understanding of Chapter 1 of this manual. 
Users who wish to modify the UNICHANNEL XVM Software System should 
read the UNICHANNEL XVM System Maintenance Manual. In addition, a 
knowledge of PDP-11 and its assembly language is necessary before at- 
tempting UNICHANNEL system modification. 

A Glossary is included following the appendices, and should be used to 
clarify terms not familiar to the reader. Program flow charts are 
also included in this manual to aid the user in understanding the 
logic flow. 

The following documents also pertain to the UNICHANNEL System: 

MACH XVM Assembler Language Manual 

XVM/DOS Users Manual 

XVM/DOS System Manual 

XVM UNICHANNEL Software Manual 

Instruction List for the PDP-15 

XVM Systems Reference Manual 

XVM/DOS VIA System Installation Guide 

RK11-E Controller Manual DEC-ll-HRKA-B-D 
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CHAPTER 1 


INTRODUCTION 

1.1 XVM UNICHANNEL SOFTWARE COMPONENTS 

The XVM UNICHANNEL Software System consists of the following four 
components: 

1. XVM/PIREX 

2. SPOLll 

3 . MACH 

4 . ABSLll 

1.1.1 XVM/PIREX 

XVM/PIREX (peripheral executive) , a component of the XVM UNICHANNEL 
(UC15) Software System, is described in Chapters 3 and 4 of this man- 
ual. XVM/PIREX (PIREX) is a multiprogramming peripheral processor 
executive executed by the PDP-11. It is designed to accept any number 
of requests from programs on the DIGITAL XVM (XVM) or PDP-11 and pro- 
cess them on a priority basis while processing other tasks concurrently 
(e.g., spooling other I/O requests). PIREX services all input/output 
requests from the XVM in parallel on a controlled priority basis. 
Requests to busy routines (tasks) are automatically entered (queued) 
onto a waiting list and processed whenever the task in reference is 
free. In a background environment, PIREX is also capable of sup- 
porting up to four priority-driven software tasks initiated by the 
XVM or the PDP-11. 

1.1.2 SPOLll 

Spooling is a method by which data to and from slow peripherals is 
buffered on an RK05 disk. Spooling allows the XVM to access and out- 
put data at high speed, freeing more of its time to do computation. 
Programs that do a great deal of I/O, especially printing and plotting, 
are not required to be core resident to complete the entire job. This 
frees the computer to quickly advance to more jobs, dramatically in- 
creasing the throughput of the entire system. The SPOLll task per- 
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mits simultaneous spooling of line printer and plotter output, and 
card reader input • The capacity of the spooler is user-defined with 
a possible maximum of over 1,800,000 characters allowed. 

1.1.3 MAC11 

MACll is a special version of the standard MACRO-11 assembler available 
on the traditional PDP-11 computer system. This program is executed as 
a task under the PIREX Executive. It is used to conditionally-assemble 
various components of the UNICHANNEL Software System. Since this as- 
sembler is a subset of MACRO-11, programs assembled under MACRO-11, will 
not necessarily assemble under MACll. In addition, programs written 
and assembled under MACll will not necessarily operate correctly on 
other PDP-11 systems. MACll produces assembly listings and absolute 
binary paper tapes as outputs. Detailed information concerning MACll 
can be found in the MACll XVM Assembler Language Manual . 

1.1.4 ABSL11 

ABSLll is a XVM Hardware Read In Mode (HRM) paper tape program used 
to bootstrap-load the UNICHANNEL peripheral processor with MAC11- 
generated absolute binary paper tapes. While primarily designed to 
load the PIREX executive into the PDP-11 memory, ABSLll may be used 
to load any absolute program into the PDP-11 and optionally start it. 
Additional information on ABSLll may be found in Chapter 2 of this 
manual. 

1.1.5 UNICHANNEL Support Programs 

1.1. 5.1 Spooler Disk Area Generation (SPLGEN) - SPLGEN allows the user 
to dynamically create or alter the RK disk area used by the UNICHANNEL 
spooler on any RK disk unit (0 through 7) . 

1.1. 5. 2 Spooler Installation Program (SPLOAD) - SPLOAD allows the user 
to install, on the system disk, the SPOLll paper tape produced by 
MACll. 


1.1.5. 3 XVM Spooler Control Program (SPOOL) - SPOOL (SPOL15) is used 
to initiate or terminate UNICHANNEL spooling using any RK disk unit 
which has been previously prepared for spooling by SPLGEN. 
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1. 1.5.4 XVM MACH Control Program (MACH) - MACll (MACINT) is used 
to initiate, perform Input/Output for, and terminate the MACll assem- 
bler. 


1.1. 5.5 MCLOAD - MCLOAD allows the user to install on the system disk, 
the MACll paper tape produced as a part of the XVM/DOS build process. 

1.1.6 System Software Modification 

The complete UNICHANNEL Software System may be modified or expanded by 
the user when running under XVM/DOS or XVM/RSX programming systems. A 
common editor, called EDIT, allows source changes to the XVM or 
PDP-11 software. MACRO XVM, the MACRO XVM Assembler, and MACll, a 
PDP-11 MACRO Assembler allow new object code to be generated. Both 
the MACRO XVM and MACll assemblers are powerful MACRO assemblers that 
facilitate easy code generation and source readability. 

1.2 UNICHANNEL HARDWARE SYSTEM 

The UNICHANNEL hardware (see Figure 1-1) consists of a PDP-11 mini- 
computer used as an intelligent peripheral controller for the larger 
XVM main computer. The XVM functions as the master processor by 
initiating and defining tasks while the PDP-11 peripheral processor 
functions as a slave in carrying out these tasks. In order to effec- 
tively operate, with a minimum of interference with the master pro- 
cessor, the peripheral processor uses its own local memory of between 
8,192 and 12,288 16-bit words. Since peripheral control requires only 
a fraction of the peripheral processor resources, the remainder of the 
processor's resources can be used for parallel processing of back- 
ground tasks. 

1.2.1 Common Memory 

Common memory is that memory directly accessible to both the master 
processor - the XVM, and the peripheral processor - the PDP-11. Thus 
common memory occupies the upper portion of the PDP-11 address space 
and at the same time the lower portion of the XVM address space. The 
UNICHANNEL System allows any Non-Processor Request device on the UNI- 
BUS to access XVM memory so that data can be transferred between I/O 
devices and common memory. 
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Figure 1-1 

UNICHANNEL Hardware System 


The use of common memory allows ease of data transfer between XVM 
memory and secondary storage (disk, magnetic tape, etc.). The PDP-11 
peripheral processor can access a maximum of 28K of memory. Table 1-1 
shows the amount of Common memory accessible to a PDP-11 processor 
with a given amount of Local memory. 


Table 1-1 

Common Memory Sizes 


PDP-11 LOCAL 

COMMON MEMORY 

MEMORY SIZE 

SIZE 

8K 

20K 

12K 

16K 


The UNIBUS can address the combined XVM/PDP-11 memory, which can 
extend to a maximum of 124K. For instance, the RK05 and its disk con- 
troller can transfer information to or from a location outside of the 
common memory region. Figure 1-2 outlines a typical memory map of the 
XVM and PDP-11, illustrating the common shared memory address space 
and the PDP-11 local memory. 
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128K 


124K 
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18 BIT 
MEMORY 
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NOT ACCESSIBLE BY XVM 
OR XVM I/O 


Figure 1-2 

Memory Map of a UNICHANNEL System 


1.2.2 Interrupt Link 

The XVM central processor and the peripheral processor communicate with 
each other through device interfaces. When the XVM initiates a new 
task, it interrupts the peripheral processor with a message. The mes- 
sage is designated as a Task Control Block Pointer (TCBP) and points 
to a table (Task Control Block) in common memory where the task is 
defined. The peripheral processor performs the task and can signify 
its completion by sending an optional interrupt back to the XVM. 

1.2.3 Peripheral Processor Hardware 

The UNICHANNEL System in its standard configuration consists of the 
following equipment (Figure 1-3) : 
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Figure 1-3 
UNICHANNEL System 


• PDP-11 Peripheral Processor 

• DR15-C Device Interface 

• Two DR11-C Device Interfaces 

• XM15 Memory Bus Multiplexer 

• 8192 or 12288 Words of 16-Bit Local Memory 


The PDP-11 , which functions as the peripheral processor , can itself 
only process 16-bit words but controls peripherals that can process 
18-bit words to provide compatibility with the XVM. The DR15-C and 
the two DR11-C Device Interfaces provide the communication facility 
between the XVM and the PDP-11, The XVM can interrupt the PDP-11 and 
send a data word (TCBP) to the PDP-11; this interrupts the PDP-11 at 
priority level 7 (the highest priority level) and causes a trap thru 
location 310g. The PDP-11, serving as a peripheral processor, can 
interrupt the XVM to indicate an error condition or job completion at 
any one of 128 API vector locations at any one of four API priorities,^" 
The XM15 Memory Bus Multiplexer functions as a memory bus switch to 
allow either the XVM or the PDP-11 to communicate with the common 
memory. The XM15 also provides the PDP-11 with the capability of 
performing byte instructions which reference XVM memory. 


This applies to systems with the API option - systems without API can 
use four skip instructions, corresponding to the four hardware priority 
levels, to determine the nature of the interrupt. 
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CHAPTER 2 

LOADING AND EXECUTION 


2.1 INTRODUCTION 

This chapter explains how to get the DEC-supplied XVM UNICHANNEL Soft- 
ware System up and running. In addition, a list of the UNICHANNEL 
software components used in the various XVM monitor systems is included 
For information on how to tailor the system to a specific configuration 
see the XVM/DOS System Installation Guide. 

2.2 LOADING THE SYSTEM 

The UNICHANNEL system is activated by using ABSL11 to load the PIREX 
executive into the PDP-11 UNICHANNEL local memory. XVM/DOS is then 
bootstrapped and the system is ready to: 

1. Continue running under XVM/DOS 

2. Begin execution of BOSS XVM 

3. Begin execution of XVM/RSX 

2.2.1 ABSL11 

ABSLll is an XVM absolute binary paper tape program which is read into 

the XVM at location 17700 g via the Hardware Read In Mode (HRM) on the 

XVM. It is used to load PDP-11 absolute binary paper tape on to the 
PDP-11. This self starting program is written in MACRO XVM and octal. 
(The PDP-11 code is written in octal and assembled with MACRO XVM.) 

Load ABSLll from the XVM High Speed Reader. XVM will then halt. Start 
the PDP-11 from its console switches at 140000. Note that the previous 
(DOS V3A) start addresses for ABSLll can also be used. Once the 
PDP-11 is running, load the PDP-11 tape into the XVM High Speed Reader. 
Depress the Continue Switch on the XVM, and the paper tape will read 
in. Each data frame from the paper tape is transferred into the PDP-11 
as soon as it is read. At the end of the tape, XVM will halt with the 

AC register equal to zero. If the paper tape has a start address, the 
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PDP-11 will begin execution at that address. If the paper tape does 
not have a start address, the PDP-11 will halt. To load another tape, 
place it in the XVM High Speed Reader, and continue both machines. 


Checksum errors are detected by the XVM and result in a halt with all 
l’s in the AC register. The checksum error may be ignored by depres- 
sing the CONTINUE switch on the XVM. 

2.2.2 Loading ABSLll, XVM/PIREX, and XVM/DOS 

The following is a step-by-step description of how ABSLll, XVM/PIREX, 
and XVM/DOS are loaded. 

1. Place the ABSLll paper tape into the XVM paper tape reader. 

The paper tape reader ON/OFF switch must be in the ON position. 

2. Verify that the RK05 Disk Cartridge is loaded into drive and: 

a. The LOAD/RUN switch is in the RUN position. 

b. The write ENABLE/PROTECT switch is in the ENABLE position. 

3. Press the HALT switch on the PDP-11 UNICHANNEL console. 

4. On the XVM console, set the address register switches to 
17700 (octal) , then press STOP and RESET simultaneously. 

5. On the XVM console, press READ IN. The ABSLll paper tape 
should read in. 

6. When the paper tape reader stops, observe the XVM accumulator 
(AC) using the proper setting of the rotary register selector 
and register select switch on the XVM console. 

a. If the AC is 0, proceed to step 7. 

b. If the AC is not 0, retry starting at step 1. (If this 
fails consistently, there is either a bad ABSLll paper 
tape or a hardware problem.) 

7. On the PDP-11 UNICHANNEL console, load the starting address 
140000 for the PDP-11 portion of ABSLll into the switch 
registers : 

Then press the PDP-11 LOAD-ADR switch 

8. On the PDP-11 UNICHANNEL console, raise the HALT/ENABLE 
switch to the ENABLE position and then press the START switch. 
The PDP-11 RUN light should now be on. 

9. Remove the ABSLll paper tape from the reader and place the 
PIREX paper tape into it. 

10. On the XVM console, press the CONTINUE switch. PIREX paper 
tape should read in. 
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11. Remove the PIREX paper tape and verify that the bit 0 and RUN 

lights on the PDP-11 UNICHANNEL console are lit. This is an 

indication that PIREX is running. 

12. Load the XVM/DOS Bootstrap tape (hardware read in mode tape) 
into the Paper Tape Reader. 

13. Set Address Switches on the XVM Console to 

a. 77637 q for a 32K or more XVM 

b. 57637 q for a 24K XVM 

14. On the XVM Console, press simultaneously STOP and RESET. 

15. On the XVM Console, press the READ IN switch. The XVM/DOS 

Bootstrap tape should read in. 

16. XVM/DOS should announce itself. If not, check that the con- 
sole terminal is powered up, is ONLINE and not out of paper. 
Also check that the correct disk cartridge was loaded into 
RK unit 0. 


2 . 3 PERIPHERAL OPERATION 


2.3.1 Disk Cartridge 

On the front of the disk cartridge unit there are two (optionally a 
third, ON/OFF) toggle switches, RUN/LOAD, and WRITE/PROT. To load 
the disk, press ON (if present) and LOAD. Pull the door open. Pick 
up the cartridge by the molded hand-grip, metal side down, horizontal, 
and slide gently into the path between the wire guides. Shut the door. 
Put the LOAD/RUN switch into the RUN position. In about 10 seconds, 
the two lights, RDY and ON CYL will come on, indicating that the cart- 
ridge is ready. To unload the disk, place the toggle switch on LOAD. 
Wait for about 30 seconds until the LOAD light is on. At this time, 
the drive will release the cartridge with a noticeable 1 click 1 , only 
then open the door and pull the cartridge out. 

WARNING 


Do not turn off the drive while unloading 
(if drive has an OFF-ON toggle) . 

2.3.2 Plotter 

Unlike the XY311, the XY11 does not have an offline switch. In order 
to be able to indicate the XYll plotter off-line condition, provision 
is made in the software through the PDP-11 console switches. By 
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setting bit * 2 1 of the console data/address switches in the up/on posi- 
tion ( 1 1 1 state) the plotter can be put in the off-line mode. This is 
made possible by the plotter device driver task in PIREX, which moni- 
tors this bit before initiating each plotter I/O requests. Once the 
plotter problem condition (e.g., out of paper) has been corrected, 
plotting will continue automatically when bit '2' of the console 
switches is reset to zero (down position) . 

The user is provided with the capability of halting the output on the 
plotter at the end of current file in the spooled mode. This is done 
through bit '3' of the PDP-11 console switches. By setting bit 1 3 1 of 
the console data/address switches in the up/on position ('1' state) 
output on the plotter can be halted at the end of current file. The 
plotter driver task in PIREX provides this facility by monitoring this 
bit before initiating each plotter I/O requests. After performing the 
necessary operations on the plotter, output can be resumed by setting 
bit 1 3* of the console switch in the down/off position ('O' state). 

2.3.3 Card Reader 

For the purposes of spooling, a card with ALT MODE, ALT MODE in columns 
1 and 2 is used as an end-of-deck card. The handler throws away such 
cards, continuing on to the next card, so that the XVM program using 
the handler never sees this card. This card is used to force data 
from a partially filled internal spooler buffer onto the disk where 
it can be despooled to the XVM. 

2.3.4 Line Printer 

Output to the Line Printer can be halted at the end of current file in 
the spooled mode. This is done through bit '1* of the PDP-11 console 
switches. By setting bit 'l 1 of the console data/address switches in 
the up/on position ('1* state), outputs on the line printer can be 
halted at the end of current file. The Line Printer driver task in 
PIREX provides this facility by monitoring this bit before indicating 
completion of .CLOSE I/O request processing. After performing the 
necessary operations on the line printer, output can be resumed by 
setting bit '1' of the console switch in the down/off position ( 1 1 1 
state) . 
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2 . 4 ERROR HANDLING 

Within the PIREX system, the device drivers on the PDP-11 side handle 
errors by placing error condition indicators in a table in PIREX. On 
the XVM side, a "poller" (part of the resident monitor of the operating 
system) periodically searches the table to see if any error messages 
are to be printed. In almost all cases the recovery is automatic when 
the error condition is rectified. See Appendix C for a list of UC15 
related error messages. 

2.4.1 Disk Cartridge Errors 

Disk cartridges must be positioned properly during loading operations. 
Improper positioning of the cartridge can result in a drive not ready 
condition. 

This condition can be eliminated in most instances by unloading the 
cartridge, repositioning it properly and reloading the cartridge. 

The above operations should be repeated a few times before reporting 
the problem to your field service representative. Do not force the 
cartridge into or from position during the loading or unloading 
operation. 

2.4.2 Card Reader Errors 

The system divides card reader errors into two groups: hardware and 

software. A hardware error is a hardware read error (pick check, card 
jam, etc.) or an illegal punch combination. A software error is a 
supply error (hopper empty, stacker full) or an off-line condition. 

For all hardware errors, the card causing the error will be on the top 
of the output stack. With most hardware errors, the card reader will 
stop, and a requisite light (i.e., pick check) will light on the 
reader. Remove the card, repair or replace it, and put it on the 
front of the input stack. Press the RESET button. The driver receives 
an interrupt when the device becomes ready again and will restart 
automatically . 

For software errors, the card in the output hopper has already been 
read. It is merely necessary to fix the supply error and press the 
RESET button. Note that the card reader can be stopped by pressing 
the OFF-LINE button. To restart, press the RESET button. 
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Illegal punch combination (IOPSUC CDU 72) and card column lost (IOPSUC 
CDU 74) are exceptions to all other errors because in these cases 
alone, the card reader will stop, remain on line, and no diagnostic 
light will be lit. The card causing the error will be in the top of 
the output hopper. (Mangled cards may cause an illegal punch combina- 
tion error.) Press the OFF-LINE button, repair or replace the faulty 
card, put it on the front of the input stack, and press the RESET 
button to restart. 

2.4.3 Spooler Errors 

During spooling operations, any unrecoverable disk error will result 
in the automatic termination of SPOOLing.. Unrecoverable disk errors 
include: 

The attempt by the spooler to read/write a bad block on 
the disk cartridge. 

Setting the disk cartridge off line while SPOOLing is 
enabled. (This is detected even if no Input/Output to the 
disk cartridge is underway.) 

The spooler is disconnected from PIREX upon the occurence of either 
of the above errors. The user may restart the spooler by issuing the 
XVM/DOS "SPOOL" command. 

2.5 TASK CRASHES 


During program development under PIREX on the PDP-11, the task under 
development may crash. Such crashes may not be apparent unless the 
PDP-11 halts, because PIREX keeps both the RUN light and bit 0 lit as 
if no problem existed. 
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2.6 UNICHANNEL RELATED SOFTWARE COMPONENTS 
2.6.1 UC15 Components 


NOMENCLATURE 

SOURCE FILE NAME 

BINARY FILE NAME 

PIREX Executive 
SPOOLER 

PDP-11 Absolute Loader 
MACll Assembler 

PIREX XXX 
SPOLll XXX 
ABSLll XXX * 

Special DOS-11 Tape** 

PIREX paper tape 
SPOOL *** 

ABSLll paper tape 
MACll *** 


2.6.2 XVM/DOS Components 


NOMENCLATURE 

SOURCE FILE NAME 

BINARY FILE NAME 

XVM SPOOLER Component 

SPOL15 

XXX 

SPOOL *** 

SPOOLER Disk Area 
Allocation 

SPLGEN 

XXX 

SPLGEN BIN 

SPOOLER Image Loader 

SPLIMG 

XXX 

SPLOAD BIN 

MACll XVM Component 

MACINT 

XXX 

MACINT ABS 

MACll Image Loader 

MAC I MG 

XXX 

MCLOAD BIN 

DOS Resident Monitor 

RESMON 

XXX 

RESMON **** 

DOS Non-Resident Monitor 

DOSNRM 

XXX 

DOS15 **** 


NOMENCLATURE 

SOURCE FILE NAME 

BINARY FILE NAME 

XVM LP11/LS11/LV11 
Line Printer Handler 

LPU. XXX 

LPA. BIN 

XVM XY11/XY311 Plotter 
Handler 

XYU. XXX 

XYA. BIN 

XVM CR11 Card Reader 
Handler 

CD . DOS XXX 

CDB . BIN **** 


* 

ABSLll requires a special assembler, that is not available as a 
supported product. Assembly of ABSLll with the standard MACRO 
XVM Assembler produces a paper tape with a load address of 17720. 

** , 

The MACll source is a PDP-11 DEC tape that must be assembled and 

linked under DOS/BATCH-11. This tape is not available as a part of 

the XVM/DOS kit. 

ieidt 

SPOLll and MACll are combinations of XVM and PDP-11 code segments. 

k "tc k "fc 

These routines are versions of standard DOS-15 source files - crea- 
ted using special assembly parameters - see the XVM/DOS VIA 
System Installation Guide. 
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2.6.3 XVM/RSX Components 


NOMENCLATURE 

SOURCE FILE NAME 

TASK NAME 

RK05 Cartridge Disk File 
Handler 

RFRES XXX 

RK .... 

Disk File Handler Overlay 

RFOPEN XXX 

RK .... 

Disk File Handler Overlay 

RFCLOS XXX 

RK .... 

Disk File Handler Overlay 

RFREAD XXX 

RK 

Disk File Handler Overlay 

RFDLET XXX 

RK 

Disk File Handler Overlay 

RFCREA XXX 

RK 

Line Printer Handler 

LP.XX SRC 

LP .... 

Card Reader Handler 

CD XXX 

CD .... 

UNICHANNEL Poller 

POLLER XXX 

, POLLER 

Plotter Handler 

XY.XX SRC 

XY 

Executive 

RSX.P1 XXX 

and 

RSX.P2 XXX 

NA 
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CHAPTER 3 

SYSTEM DESIGN AND THEORY OF OPERATION— PI REX 

This chapter describes the design and theory of operation of the XVM 
UNICHANNEL Peripheral Processor Executive. Knowledge of this infor- 
mation is necessary to successfully modify the XVM UNICHANNEL Software 
System. Chapter 4 will discuss techniques for modification of the 
PIREX system. 

3.1 PIREX— PERIPHERAL EXECUTIVE 

PIREX is a multiprogramming peripheral processor executive designed 
to provide device driver support to operating systems on the DIGITAL 
XVM main-processor. PIREX is designed to be as independent of the 
particular XVM operating system as possible, executing in conjunction 
with XVM/DOS, BOSS XVM, or XVM/RSX. The PIREX Software System is des- 
igned to maximize flexibility and expandability and to minimize system 
overhead and complexity. To accomplish this, special software and 
hardware features are designed into the system. 

3.1.1 PIREX-An Overview 

PIREX is loaded from the XVM high-speed reader into the PDP-11 local 
memory and automatically started. Once running, PIREX is capable of 
accepting multiple requests and directives from the XVM or PDP-11 and 
processing them on a controlled-priority basis. Task requests are 
automatically queued (see Figure 3-1) and processed whenever the task 
in reference is free . When a particular device or routine completes 
the processing of a request, status information (e.g., parity or check- 
sum errors, transfer OK, etc.) is passed back to the caller. 

At the completion of a XVM request, an optional hardware interrupt is 
initiated in the XVM on any one of 128 possible API trap locations and 
at any one of 4 hardware API levels if requested. Since the software 
completely determines which interrupt vector and level to use when 
completing XVM requests, the routines initiating the interrupts could 
actually be software routines used to simulate hardware conditions or 
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just software tasks. If the request is issued from the PDP-11, the 
user may request an optional software interrupt after completion of the 
current request. 

3.1.2 PIREX Services 

The PIREX executive consists of modules that provide support for multi- 
ple I/O oriented tasks operating asynchronously with each other. In 
addition, support is provided for other background tasks such as MACll. 
The services provided to tasks operating under PIREX include: 

• Context switching - transferring control of the PDP-11 
Central Processing Unit (CPU) from one task to another. 

• Interprocessor communication - receiving requests for 
service from, and, sending results to the XVM main 
processor. 

• Intraprocessor communication - receiving requests for 
service from, and, sending results to tasks operating on 
the PDP-11 peripheral processor. 

• Scheduling - determining which task is to execute next. 

• Request Queuing - stacking requests for a busy task until 
it is able to process them. 

• Timing - providing a timed wake-up service for requesting 
tasks . 

• Error Reporting - providing a list of current device and 
task errors to the XVM executive, on demand. 

• Directive Processing - providing the XVM monitor with 

specific services such as: notification of available 

memory space, connecting, disconnecting or stopping tasks 
and returning the status of certain tasks. 

These services are provided to both device driver tasks and background 
tasks . 

3.1.3 Device Drivers 

Device Drivers are tasks that typically perform rudimentary device 
functions such as read, write, search, process, interrupt, etc. They 
can, however, be complete handlers, performing complex operations such 
as character generation and directory searching. PIREX provides each 
driver with requests for I/O actions and returns the results of the 
actions to the caller. Associated drivers are provided for the RK05 
Disk Cartridge, the LP11/LS11/LV11 Line Printer, the CRll Card Reader, 
and the XY11 Plotter. 
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3.1.4 Software Routines in Background Mode 

The following are run as background tasks — executing only when I/O 
drive tasks are idle: 

1. SP0L11 — an input/output spooling processor 

2. MACH — A MACRO assembler for the PDP-11 

3.1.5 Unsupported Tasks 

All tasks supplied with the PIREX software system are fully supported 
by Digital Equipment Corp. except the DECtape Driver task (DT) . The 
DT task has not been completely tested, but is included in the system 
for illustrative purposes and for anyone who may desire to develop 
DECtape capability on the PDP-11. 

3.1.6 Optional LV Support 

For reasons of packaging optional LV support on a printer and a plotter 
is present in the standard PIREX ($LV=0) . This support, however, is 
only at the device driver level. The PDP-15 side modules display-f ile- 
to-vector, vector- to-raster, and LV I/O handler may be purchased separa- 
tely. Information is available through PDP-15 Marketing. 

3.1.7 Optional DL Support 

The DL-11 is supported as a communications protocal device between a 
DEC system-10 and a PDP-15. The code for this support is purchased 
separately and is available from the SDC. Information is available 
through PDP-15 Marketing. 

3.1.8 Power Fail Routine 

A power fail section is present in PIREX. It is, however, not sup- 
ported by DEC and currently only saves the general registers and does 
not attempt to handle I/O in progress. This routine could be expanded 
by the user into a complete power fail handler. 
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3.2 PIREX - SIMPLIFIED THEORY OF OPERATION 

3.2.1 NUL Task 

When the PIREX Software System is running, it is normally executing the 
NUL Task (a PDP-11 WAIT instruction) . The NUL Task is executed when- 
ever there are no other runnable tasks or while all other tasks are in 
the WAIT state waiting for previously initiated I/O. The NUL Task 
entry is a permanent element in the Active Task List. The Active Task 
List is a priority ordered list of tasks that is used to schedule the 
next task to be executed. The NUL task occupies the last position in 
the Active Task List (ATL) . 

3.2.2 Clock Task 

One other permanent entry in the ATL is the Clock Task. The Clock Task 
is entered once every 16.6 milliseconds for 60 Hz machines (20.0 milli- 
seconds for 50 Hz) . Its primary function is to provide other tasks 
with a wake up service. A typical use of the Clock Task would be to 
wake up the Line Printer Task every two seconds to check the Line Printer 
status for a change from OFF LINE to ON LINE. The Clock Task operates 
at the highest priority on the ATL. 

3.2.3 Request Processing 

When the XVM issues a request to the PDP-11 to be carried out by PIREX, 
it does so by interrupting the PDP-11 at level 7 (the highest PDP-11 
priority level) and simultaneously passing it the address of a Task 
Control Block (TCB) through the interrupt link. This address is called 
the Task Control Block Pointer (TCBP) . A PDP-11 task can issue re- 
quests to other tasks via the IREQ macro. The IREQ macro simulates 
the XVM request process and results in a TCBP being passed to PIREX, 

The contents of the Task Control Block completely describe the request 
(task addressed, function, optional interrupt return address and level, 
status words, etc.). The TCB will reside in the 'Common' Memory if 
the request is issued from the XVM or in the 'Common' or 'Local' 

Memory if the request is issued from the PDP-11. 

The flow chart in Figure 3-1 illustrates the basic processing of 
requests to PIREX from the XVM or the PDP-11. Note that error condi- 
tions are passed back to either central processor in the TCB or via 
an error table to the XVM monitor poller along with status information 
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necessary for control and monitoring of a request. Usually the request 
is to a device on the PDP-11 but other types are allowed. 

3.2.4 Task Structure 

A task is a PDP-11 software routine capable of being requested by the 
XVM or PDP-11 through the PIREX software system. The task may be a 
device driver, a directive processor, or just a software routine used 
to carry out a specified function. A task must have the format shown 
in Figure 3-2, TASK FORMAT. 

**** LOWER CORE 


* * 

task stack area ' ' 

i i 



* * 


**** 

control register 

* * 


•k kk-k 

busy/idle switch 

k * 


★ * 


**** 


★ * 


task program * * 

code ' 1 

* * 

★ * 

**** HIGHER CORE 

Figure 3-2 
Task Format 

This structure consists of four sections? two are variable in size and 
two are fixed. 

The "task program code" size is variable and contains the programming 
code necessary to carry out the task function. 

The "busy/idle switch" consists of two words and is used by PIREX to 
determine if a task is busy or idle. The TCBP of the current request 
is stored in this section when the task is busy. This also enables a 
task to easily access the TCB . 

The "control register" is either a dummy address (an address which 
points to an unused software variable) or the address of a device 
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control register if the task is an I/O driver. This word is used only 
by the STOP TASKS (ST) task when shutting down I/O operations. 

The "stack area" begins immediately below the control register and 
builds dynamically downwards. The purpose of the stack is to allow 
each task free use of a private space for temporary storage of data 
while it is executing and all its active registers during times when 
other higher priority tasks are being run. The stack area must be 
large enough to store the maximum number of temporary variables used 
at any one time plus one context register save. A context save requires 
8 words of stack area plus an additional 3 words if the PDP-11 has an 
Extended Arithmetic Element (EAE) . The stack size is fixed and deter- 
mined at PIREX assembly time. 

3.2.5 Task Control Block - TCB 


Tasks , in PIREX, receive requests for action and return the results of 
their action in blocks of information called Task Control Blocks (TCB) . 
The general format of a TCB consists of three words followed by task- 
specific optional words. The following information must be present 
in all TCBs since PIREX will honor requests in this format only. 


TCB: 


REV: 


15 8 7 0 

WORD 0 
WORD 1 
WORD 2 
WORD 3-N 


API TRAP ADDRESS 

API LEVEL 

FUNCTION CODE 

TASK CODE NUMBER 

REQUEST EVENT VARIABLE 

OPTIONAL WORDS 


3.2. 5.1 API Trap Address and Level - The API trap address is a XVM 
API trap vector and has a value between 0 and 177g when a hardware 
interrupt on the XVM is required. Location 0 corresponds to location 
0 in the XVM. The "API" level is the priority level at which the 
interrupt will occur in the XVM and has a value between 0 and 3 when 
a hardware interrupt on the XVM is required. A 0 signifies API level 
0, a 1 for level 1, etc. The API trap address and level are used by 
tasks in the PDP-11 when informing the XVM that the requested operation 
is complete (e.g., a disk block transferred or line printed). If the 
XVM master computer doesn't have API or if API is not enabled, the 
PDP-11 issues an interrupt that when received is polled by the XVM using 
4 UC15 skips (one per level) on the traditional skip chain. ^ 


^API is optional on PDP-15's, 


standard on XVM's. 
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3.2. 5. 2 Function Code - The Function Code determines whether hardware 
interrupts on the PDP-15 or software interrupts on the PDP-11 are to be 
used at the completion of the request. If the code has a value of 0, 

a hardware interrupt is generated on the XVM at the completion of the 
request; if a 1, an interrupt is not made. If the Function Code is a 
3, a software interrupt is issued by PIREX. The task routine or pro- 
gram using this facility sets up the trap address in the SEND11 table 
in PIREX prior to issuing the request to the task. The task or route 
should return to PIREX after interrupt processing through an "RTS PC" 
instruction. All registers are available for use by tasks. 

3. 2. 5. 3 Task Code Number - The Task Code Number (TCN) is a positive 
(l-177g)^ or a negative (200-377 Q ) 7-bit number plus a sign bit that 
informs PIREX which task is being referenced. The mnemonic TCN as 
used in this manual refers to the 7-bit portion of the Task Code 
Number. Tasks are addressed by a numeric value rather than by name. 
Tasks with positive code numbers are spooled tasks and tasks with 
negative code numbers are unspooled tasks. When the SPOOLER (see 
Chapter 5) is enabled and running, requests to spooled tasks are 
routed to the SPOOLER. When the SPOOLER is disabled, requests to 
spooled tasks are routed directly to device drivers. 

Task Code Numbers are currently assigned as follows: 


CODE 

TCN 


TASK 


-I 3 

-1 

CL task 

(Clock) 

. 3 

Driver task 

200 

0 

ST task 

(Stop Task) 

Software task 

201 

1 

SD task 

(Software Directive) 

Directive task 

202 

2 

RF task 

(Cartridge Disk) 

Driver task 

203 

3 

DT task 

(DECTAPE) 

Driver task 

4 

4 

LP task 

(Line Printer) 

Driver task 

5 

5 

CD task 

(Card Reader) 

Driver task 

6 

6 

PL task 

(Plotter) 

Driver task 

207 

7 

SP task 

(Spooler) 

Background task 

210 

10 

LV task 

(Printer/Plotter) 

Driver task 

211 

11 

DL task 

(Hurley protocal 

Driver task 



communication task) 


212 

12 

Currently not used 

- 

213 

13 

Currently not used 

- 

214 

14 

Temporary Task Entry 

Temporary task 


A task code of 0 indicates the STOP TASKS DIRECTIVE - See Section 3.5 

2 

The code column corresponds to the typical task code in the TCB 

3 

The minus 1 is represented internally as 377 
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\ 


PIREX is currently capable of handling these 14 tasks. Tasks 11-14 
are spare task codes available for customer use.^ 


3.2. 5.4 Request Event Variable - The REQUEST EVENT VARIABLE, commonly 
called REV, is initially cleared by PIREX (set to zero) when the TCB 
request is first received and later set to a value "n" (by the asso- 
ciated task) at the completion of the request. The values of "n" are; 


0 

1 


request pending or not yet completed 

request successfully completed 
16 

(mod 2 -1) nonexistent task referenced 

16 

(mod 2 -1) illegal API level given (illegal values 

are changed to level 3 and processed) 

(mod 2*^-1) illegal directive code given 
16 

(mod 2 -1) no free core in the PDP-11 local memory 

16 

(mod 2 -1) ATL node for this TCN missing 


erenced task was currently busy or the task did not 
have an ATL node in the Active Task List) 


-200 

= 

(mod 

2 16 

-300 

= 

(mod 

2 16 



are chan< 

-400 

= 

(mod 

2 16 

-500 

= 

(mod 

2 16 

-600 

= 

(mod 

2 16 

-777 

= 

(mod 

2 16 



POOL 

(i.< 


When an address is passed in a TCB as data, the receiver of the address 
must relocate it to correspond to the addressing structure in its 
memory space. For example, a PDP-15 address passed to the PDP-11 
must first be multiplied by two to convert word to byte addressing 
and then the local memory size (LMS) of the PDP-11 must be added. 

For example, 

PDP-11 address = (PDP-15 address *2) + LMS on PDP-11 

The reverse is true for a PDP-11 address received by the XVM, For 
example, 

XVM address = (PDP-11 address - LMS)/2 


1 


See Section 4.4 for further information. 
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3.3 SYSTEM TABLES AND LISTS 

The PIREX system uses various tables, lists, and deques to control 
events within the system. 

3.3.1 Active Task List (ATL) 

The selection of a task for execution by PIREX is accomplished by first 
scanning a priority-ordered linked list of all active tasks in the 
system called the Active Task List (ATL) . An active task is one which 
satisfies one or more of the following conditions: 

1. is currently executing 

2. has a new request pending in its deque 

3. is in a wait state, or 

4. has been interrupted by a higher priority task 

A task is inactive if there is no ATL node for it. A task can be in 
any one of the following states: 


CODE 

STATE 

ACTIVITY 

0 

run 

active 

2 

wait 

active 

4 

exit 

inactive 


When a runnable task is found, the stack area and general purpose reg- 
isters belonging to that task are restored and program control is trans- 
ferred to it through an RTI instruction. Program execution normally 
begins at the first location of the task diagram code (see Figure 3-3) 
or at the point where the task was previously interrupted by a higher 
priority task, or in special cases at any desired location in the task 
using the ’PC* setting on the stack as in the RK task's error retry 
program logic. When a task is interrupted by other tasks, its general 
purpose registers are saved on its own stack. Control is returned to 
the interrupted task by restoring its stack pointer and then its active 
registers. 
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Rescan the ATL 
from the top. 
See Figure 3-4. 


Figure 3-3 (Cont.) 

Detailed Flow Chart of XVM/PDP-11 Request Processing 
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Figure 3-3 (Cont.) 

Detailed Flow Chart of XVM/PDP-11 Request Processing 
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The ATL is rescanned when: 


1. a new request is issued to a task 

2. a previous request is completed 

3. at the end of a clock interrupt 

4. a task goes into a wait state 

A task is said to be in a "wait" state when its ATL node exists and it 
is not runnable. 


3. 3. 1.1 ATL Nodes - The Active Task List is a linked list containing 
4 word entries called nodes. 


An ATL node has the following structure: 


WORD 1 
WORD 2 
WORD 3 


Forward pointer to next node 
Backward pointer to previous node 
Stack pointer of task 


WORD 4 


15 

14 

13 

12 

ii 

10 

0 

8 

a 

0 

0 

0 

a 

s 

0 

0 



Task Priority 


Spooling Indicator 

0 = spooled 

1 = not spooled 

Task Code Number (TCN) 


TASK STATUS (States defined in 3.3.1) 


The ATL is referenced by a 2-word listhead. The listhead contains 
backward and forward links pointing to the first and last nodes in the 
list. The ATL is a priority-ordered list. 

3. 3. 1.2 ATL Node Pointer (ATLNP ) - Each task has a pointer to its 
Active Task List Node (see Section 3. 3. 1.1) stored in the ATLNP 
table. This table is in TCN order. An entry is 0 if the task is 
inactive . 
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The format of an ATLNP entry is: 

0 ; NAME task-code-number 1 


These entries are filled dynamically by PIREX with actual pointers. 
3.3.2 Task Request List (TRL) 

The Task Request Lists are doubly- linked, deque-structured lists of 
pending TCBs. If when a request arrives, the target task is busy, 
PIREX places the TCB pointer (TCBP) onto the busy task's deque for 
later processing. This deque is the Task Request List. 

A TRL node has the following structure: 

WORD 1 - Forward pointer to next node. 

WORD 2 - Backward pointer to previous node. 


15 

14 

13 

12 

ii 

10 

E 

8 

0 

0 

0 

0 

0 

0 

0 

0 


Request Identifier] 

0 = PDP-15 request 

1 = PDP-11 request 

Most significant bits of the TCBP (XVM bits 0 and 1) 

WORD 4-16 least significant bits of TCBP (XVM bits 2-17) 



Each TRL is referenced by a two-word listhead. The listhead contains 
backward and forward links pointing to the last and first nodes of a 
given task's TRL. The TRL is built on a first come first serve basis. 

3.3.3 TRL Listheads (LISTHD) 


Each task has its own Task Request List, (TRL) . Each LISTHD entry is 
a double-linked listhead used to point to a task's TRL. The LISTHD 
is a TCN ordered list. 


1 The "NAME 


task- code-number" 


is a comment 
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The format for an entry is: 

LISTHEAD XX 
where : 

1. LISTHEAD is a system macro 

2. XX is a two character task mnemonic (i.e., LP for Line 
Printer Task) . 

3.3.4 Clock Request Table (CLTABL) 

The Clock Table (CLTABL) contains entries for one timing (wake up) re- 
quest from each task. The format of a CLTABLE entry is: 

XX 1 . CL = . 

.WORD 1 ; Time Word 

.WORD 1 ; Address Word 

Where the first word is remaining time before wakeup and the second 
word is the address for a JSR PC, XXX instruction. The JSR occurs at 
clock interrupt level (6). The user must do an RTS PC to return con- 
trol to the clock routine. Time is measured in line frequency ticks: 
16.6 milliseconds/tick for 60 Hz Systems. A task may cancel a timing 
request by clearing the time word. A request for a wakeup is made by: 

1. Placing the address of the routine to be called into 
word 2 - then 

2. Placing the time delay (measured in 1/60 sec, increments) 
into the time word. 

The above sequence must be exactly followed. See Chapter 4 for further 
details on the use of wakeup calls. CLTABL is a TCN ordered list. 

3.3.5 Device Error Status Table (DEVST) 

The DEVST table is used to store error status codes for delayed trans- 
fer to the XVM monitor. The XVM monitor contains a routine called the 


T 


XX represents the task mnemonic 


(e.g. , 


RK.CL) 
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"Poller" which periodically requests error status codes from PIREX using 
a "get errors" software directive. This method of error transmission is 
useful for delayed error messages — such as those recognized on spooled 
devices. The specific XVM I/O handler may no longer be present in the 
PDP-15's memory — thus the Request Event Variable (REV) method of return- 
ing error status would be useless. The "Poller" requests the entire 
DEVST table and reports those events on the system console terminal. 

A "Get Errors" directive clears the DEVST table upon completion. The 
reporting task may, for instance, correct the error condition before 
the "Get Error" directive is issued. When this happens, the task could 
simply clear its message from the DEVST table and thus eliminate a 
spurious message. DEVST is a TCN ordered table. The format of a DEVST 
entry is as follows: 

WORD 1 - TASK (MNEMONIC IN SIXBIT/RAD50 RIGHT JUSTIFIED) 

WORD 2 - SPARE (used to report bad block numbers, and, to 

report disconnected spooler unit) 

WORD 3 - ERROR CODE: SPOOLER ERROR CODE (HIGH BYTE) 

TASK ERROR CODE (LOW BYTE) 


3.3.6 LEVEL Table 

The LEVEL table (task priority level) is used by the R.SAVE context 
switch routine to determine the priority level of the task about to 
begin execution. All interrupt vectors must specify a priority 7 
entry into their respective interrupt routines. Upon entry, R.SAVE 
should be called to save the interrupt task state and return control 
to the interrupt processing routine at the proper priority — found in 
the LEVEL table. The LEVEL table is a TCN ordered task. 

The LEVEL table entry format is: 

.BYTE task priority *40 

3.3.7 Task Starting Address (TEVADD) 

The TEVADD Table contains the starting address of all defined tasks. 
The system currently has room for 13g tasks of which three are tempor- 
ary entries used for tasks CONNECTED to and DISCONNECTED from PIREX. 
MACH is such a temporary task and uses the table entries of the cur- 
rently unused highest task code. All PIREX systems must have at least 
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one highest unused task entry to allow use of MACH. The TEVADD table 
is TCN ordered. 

The format of a TEVADD table entry is: 

.WORD START ; task name 
where START is either: 

1. The starting address of the task, or, 

2. 0 indicating that this entry is currently unoccupied. 

where "Task name" is a comment. 

3.3.8 Transfer Vector Table (SEND11) 

The SENDll table is used to store transfer vectors for use when issuing 
IREQ macro calls. The entry is the address at which the requesting 
routine receives control back from PIREX. This table is TCN ordered. 

The format of a SENDll entry is: 

0 ; task-name task-code-number 

where "task name task-code-number" is a comment. 

3.3.9 System Interrupt Vectors 

The device interrupt vector-pairs consist of interrupt routine address 
and priority level. The priority level of "all" devices should be 
Level-7 "only". This is to permit PIREX to do a context switch before 
processing the interrupt. 

3.3.10 Internal Tables Accessible to All Tasks 

All tasks in the PIREX system can easily access internal routines and 
tables through the use of the system registers. These registers begin 
at absolute location 1002 g in the PDP-11 and contain either pointers 
to internal tables and listheads or entry points to commonly used sub- 
routines. The following list summarizes these registers. 
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LOCATION 

MNEMONIC 


01002 


SENDll 


01004 

CURTS K: 

000000 


01006 


POL . LH 


01010 


LISTHD 


01012 


R. SAVE 


01014 


R. REST 


01016 


AS. El 


01020 


MOVEN 


01022 


DEQU 


01024 


SEND15 


01026 


EMPTY 


01030 


ATLNP 


01032 


RATLN 


01034 


SPOLSW 


01036 


RTURN 


01040 

NBRTEV : 

NTEV 


01042 

PWRDWN : 

RTURN 


01044 

PWRUP : 

RTURN 


01046 

SPOLSW: 

000000 


01050 


DEVST 


01052 


CLTABL 


01054 


DEQUl 


01056 


CEXIT 


01060 


TEVADD 


01062 

DEVARE : 

.WORD 

DEVTYP 

01064 

DEVSPL: 

.WORD 

0 

01066 

CTLCNT: 

.WORD 

0 

01067 

SPUNIT: 

.WORD 

0 


DESCRIPTION 

INT. RETURN ADD. (ON 11) ON END 
OF I/O 

CURRENT TASK RUNNING 
ADDRESS OF POOL LISTHEAD 
ADDRESS OF TASK LISTHEADS 
ENTRY POINT TO REGISTER SAVE 
ENTRY POINT TO REGISTER RESTORE 
ENTRY POINT TO ATL RESCAN 
ENTRY POINT TO NODE MOVER 
ENTRY POINT TO DEQUEUE 
ENTRY POINT TO SEND INTERRUPT 
ENTRY POINT TO EMPTY A DEQUE 
ATL NODE POINTER TABLE 
ENTRY POINT TO RETURN ATL NODE 
SPOOLER SWITCHES ADDRESS 
REUTURN INST. ADD. FOR PIC CODE 
CURRENT NBR OF TASKS 
ENTRY POINT TO PWR FAIL DOWN 
ENTRY POINT TO PWR FAIL UP 
SPOOLER SWITCHES 
DEVICE ERROR STATUS TABLE 
TABLE , A TIME-ADDR PAIR FOR EACH 
TASK 

ENTRY TO -SET TASK IN WAIT 
STATE-ROUTINE 

ENTRY TO -SET TASK IN RUN STATE- 
ROUTINE 

TABLE OF TASK START ADDRESSES 
PIREX DEVICES SWITCH 
DEVICES SPOOLED SWITCH 
XVM CTL C RUNNING COUNTER 
UNIT CURRENTLY BEING SPOOLED TO 


These registers are accessed as absolute memory locations by various 
permanent and temporary tasks. NO CHANGE in the location or order of 
this table is permitted. New system registers may be added to the 
end of this table. 


3.4 DETAILED THEORY OF OPERATION-PIREX 


3.4.1 Request Procedure 

The UC15 system allows the XVM to initiate requests to the PDP-11 by 
interrupting at the highest PDP-11 hardware level and simultaneously 
passing to it an 18-bit Task Control Block address. Only the first 16 
bits are used because PIREX does not support a memory management option 
on the PDP-11. Requests from the XVM or PDP-11 could be for: 


1 


Memory management hardware support is not a feature of PIREX. 
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1. a directive-handing routine 

2. a data transfer to or from a device driver task on the PDP-11 

3. a background software routine (task) 

3.4.2 Directive Handling 1 

Directive handling consists of such functions as: 

1. Connecting and disconnecting tasks from the PIREX system 

2. Reporting core status on the PDP-11 local memory to the 
calling routine 

3. Stopping I/O on a particular device or all devices 

4. Reporting UNIBUS device status to the calling routine 

. 2 

5. Stopping any or all tasks currently running 

6. Reporting spooler status to the caller 

3.4.3 Logic Flow 

The flow charts in Figures 3-3, 3-4, and 3-5 illustrate in detail the 
program logic flow when a request from the XVM or PDP-11 is made to 
PIREX. Note that PIREX is capable of servicing requests in parallel 
on a priority basis. 

3.4.4 Operating Sequence 

PIREX is usually running the NUL task waiting for something to do. When 
a request is issued from the XVM or PDP-11, PIREX immediately: 

1. saves the general-purpose registers onto the stack belonging 
to the current task running 

2. saves the stack pointer in the ATL nodes 

3. sets the task in a RUN state 

4. switches to the system stack (refer to Figure 3-5) 

All of the preceding is done at level 7 (protected) . The system stack 
is used when switching between tasks or rescanning the ATL. 


1 See Section 3.6 for additional information. 
2 

See Section 3.5 for additional information. 
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Figure 3-4 

Scan of Active Task List (ATL) 
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Figure 3-5 

Context Switch or Save General Purpose Registers R0-R5 
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In the case of a XVM request, the TCBP (Task Control Block Pointer) 
register is now immediately read by the PDP-11 allowing additional re- 
quests to be made. PIREX corrects the TCBP by an amount equal to the 
PDP-11 local memory when a request comes from the XVM. The TCBP is 
present in R4 and R5 when the IREQ macro is issued by a PDP-11 routine 
and the PDP-11 is able to address the TCB directly and retrieve infor- 
mation from it. The task code number is then obtained from the caller 
TCB and used to determine which task or directive that is being 
referenced. 

A check is made to determine if the called task is a spooled task or 
not. If bit 7 = 0, it is a spooled task and if bit 7=1, it is an 
unspooled task. If the called task is a spooled task and if the SPOOLER 
is enabled, the request is processed by the SPOOLER. If the SPOOLER 
is not enabled, a check is made to determine if the task in reference 
is currently active and busy with a previous request. If so, the request 
is queued to the task's deque (TRL) on a first come, first serve basis. 

If the task in reference is currently inactive, an ATL node is built 
containing the appropriate entries, the address of the ATL node is set 
in the ATLNP table and the task's priority in the LEVEL table. In 
either case, the ATL is rescanned and the highest priority task is 
selected for execution (see Figure 3-4) . 

UC15 peripherals, controlled by PIREX, use a minimal driver to carry 
out requested functions and report the results back to the calling task 
via the TCB. When a driver finishes a request (whether an error occur- 
red or not) , it informs the requestor by placing the results (status 
and error register) in the TCB associated with that request and sends 
an optional hardware or software interrupt back to the requestor. 

The request event variable (REV) is set prior to sending an interrupt 
to the XVM/PDP-11 and may be used by the XVM or PDP-11 to determine 
if a request has been processed. This method is used during times 
when interrupts are not enabled or desired (as during the bootstrapping 
operation on the XVM) . The hardware interrupt to the XVM (see 
Figure 3-6) is optional and can be made at any of the XVM API hardware 
levels and trap addresses. The API level and trap address are specified 
in the TCB associated with each request to allow complete flexibility 
in interrupt control. 
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Figure 3-6 

Send Hardware Interrupt to XVM/Software Interrupt to PDP-11 
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3.4.5 Software Interrupt 

A software interrupt return for the PDP-11 tasks is optional. This 
feature is available only if a hardware interrupt return to the XVM 
is not required. To generate a software interrupt, the task using the 
request has to set the trap address before issuing the request. Each 
task running under PIREX has an entry in the SEND11 Transfer Vector 
Table. PIREX traps to this location on completion of a request by 
executing a JSR PC, SEND11 (Task Code *2). The task issuing the re- 
quest specifies its task code in the TCB. All registers are free to 
be used when the control is transferred. Control is returned to PIREX 
through an RTS PC instruction. 

3.4.6 Task Completion 

When the XVM has been notified (via interrupt) that its request has 
been completed, the task completing the request under PIREX becomes idle 
and calls DEQU (see Figure 3-7) to determine if any additional requests 
are pending. If no requests are pending, control is transferred to 
the ATL scanner (after saving the stack pointer and setting the current 
task in a wait state in its ATL node). If additional requests exist, 
the next request in the task’s TRL is processed as if it were just 
received. 

3.5 STOP TASKS 

The STOP TASKS Task is used to stop tasks and/or I/O currently underway 
for either all tasks or for a particular task. STOP TASKS can cancel 
all requests or only XVM requests for the indicated task(s). There 
are four possibilities: 

1. Stop all tasks unconditionally and cancel all pending XVM 
requests 

2. Stop a given task unconditionally and cancel all pending XVM 
requests to that task 

3. Cancel all XVM requests to all tasks - this has no effect 
on PDP-11 requests 

4. Cancel all XVM requests to a given task - this has no 
effect on PDP-11 requests 

The process of stopping a task includes (1 or 2 above) : 
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Figure 3-7 

Dequeue Node From Task's Deque 
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1. Removal of all appropriate XVM request nodes in the task(s) 
TRL(s) 

2. Zero the Busy Idle Switch for the task(s) 

3. Clear the I/O device register (s) for the task(s) 

4. Set the tasks status in the ATL to EXIT (for a temporary 
task) or WAIT (for a permanent task) - 

5. Indicate completion by setting the REV of the STOP TASKS 
requestor. (An interrupt return is not allowed.) 

The Stop Tasks TCB has the following format: 


TCB: 


REV: 


15 0 

Word 0 
Word 1 
Word 2 


TON 


200 


REV 


Word 1 bit 15 = 1 cancel XVM requests and the current 
pending request unconditionally. 

bit 15 = 0 cancel XVM requests 

TCN = 0 cancel all tasks 

TCN /0 cancel Task TCN only 

Word 2 REV = Return Event Variable 


STOP TASKS is typically used by the XVM operating system to quiet all 
interaction between the XVM and the PDP-11. 


3.6 SOFTWARE DIRECTIVE PROCESSING 

The software directive task provides two main capabilities. These are 

1. The capability to connect and disconnect temporary tasks to 
PIREX (such as MACll 

2. The capability to obtain various PIREX status information. 

These capabilities are provided via five software directives, which 
are described later in this section. 

The general format for software directive task control blocks is as 
follows : 
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word 0 
word 1 
word 2 
word 3 


word n 


ATA XVM API interrupt vector address 

ALV XVM API interrupt priority level. Must be 0, 1, 2 , or 3 

(unless FCN = 3) . 

FCN Function to perform upon completion of this software directive 

request. Valid values are: 

000 Interrupt the XVM at address ATA, priority ALV. 

001 Do nothing (except set REV) . 

003 Cause a software interrupt to the PDP-11 task whose 
task code number is in ALV. 

REV Request Event Variable. Initially zero, set to a non-zero 

value to ^indicate completion of the software directive request. 
The meaning of the various return values is described below. 

OPR Indicates the exact operation (directive) to be performed. 

Must be one of the following values: 

0 Disconnect Task 

1 Connect Task 

2 Core Status Report 

3 Error Status Report 

4 Spooler Status Report 

5 MOVE 



ATA 

till! 

F 

ALV 

j. i i i i i 

£ 

1 

1 , 

FCN 

i » « i » 

201 

! ! 1 1 1 

— 

1 

t 

! rev ; 

» 1 1 1 1 1 1 1 1 1 I I 1 t i i t 

i_LJ 

OPR 

— t — t- r t t 





Contents Depend 



r 

/ 


Upon 

Directive 


* i t i i i i « * i i i i 


Returned REV values 


1 Successful completion 

-300 Invalid ALV value. The request may or may not have 

been performed - see individual directive descriptions. 
The XVM will be interrupted at level 3. 

-400 Invalid OPR (directive/operation code) value. 


Other See individual directive descriptions. 
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The following sections contain detailed descriptions of the individual 
software directives; their task control block (TCB) formats ; and the 
REV values they may return. 

3.6.1 Disconnect Task Directive 


The disconnect task software directive instructs PIREX to delete a 
task from the active task list. Request should not be issued to a 
task after it has been disconnected. An attempt to issue a request 
to a disconnected task will result in a returned REV value of -200, 
implying that a non-existent task was referenced. The format of the 
task control block for the disconnect task software directive is as 
follows: 


,15 


8,7 

0, 





ATA i 

ALV i 

word 

0 

i __t 


PCN ! 

1 II II 1 1 1 

201 i 

i , , , i » 

word 

1 

, — 


REV 

V , 1 11 , , , 

, ii it , 

word 

2 


i 

m 1 
,,,,,,,, 

TCN ! 

i i , » ii 

word 

3 

1 !_ 

JL. 

REL 

» , » » 1 1 , 

J ! ! ! l * 

word 

4 


JL_ 

1 

First Address ! 

J 1 L 1 1 U L_ _L ! 1 1 1 l 

word 

5 



unused 

, , i , » i * * 

, I I ,1 i 

word 

6 



Length 


word 

7 


TCN 


The task code number of the task to be disconnected. 


REL 000000 if the task resides in XVM memory 

100000 if the task resides in PDP-11 memory 

First PDP-11 byte address of the first location in memory 

Address occupied by this task (the lowest address of the task 

stack area) . Only meaningful if the task resides in 
PDP-11 memory - if the task resides in XVM memory this 
word is ignored. 

Length Total size (in bytes) of this task, including stack 

area, control register, busy/idle switch, and program 
code. Only meaningful if the task resides in PDP-11 
memory - if the task resides in XVM memory this word 
is ignored. 


The disconnect task software directive verifies that the task to be 
disconnected is on the active task list. If present on the list, the 
task is disconnected - the active task list node is returned to the 
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pool, the task's entry in the TEVADD table is cleared, and the task's 
task request list is cleared. If the task resides in PDP-11 memory, 
an attempt is made to free the memory space occupied by the task - if 
the first free local memory address is the address immediately follow- 
ing the storage area occupied by the task (as determined from the first 
address and length arguments), the task's first address becomes the 
new first free local memory address. 


RESTRICTIONS: 


1. If a task does not have an active task list node, it cannot 
be disconnected. Therefore, once a task has been connected, 
it cannot be disconnected until after a request has been 
issued to it. 

2. All requests which are on the task request list of a task 
which is disconnected are forgotten. Such requests will never 
complete; their request event variables (REVs) will never be 
set to a non-zero value. 

3. PDP-11 local memory resident tasks should only be disconnected 
if they are the last (highest address) task in local memory. 

If PDP-11 local memory resident tasks other than the last are 
disconnected first, the memory space occupied by these tasks 
will not be released. This will result in holes (of unusuable 
memory) in the PDP-11' s local memory. 

4. Tasks should be disconnected in a reverse sequential order by 
task code number. A task should not be disconnected if there 
are any connected tasks with higher task code numbers. 

5. The high order bit of the task code number (TCN) must be 
clear . 


Returned REV values: 


1 Task successfully disconnected 

2 Task successfully disconnected, but the (PDP-11 local) 
memory occupied by this task could not be released. 

-300 Invalid ALV value, the task may or may not have been dis- 
connected, its memory may or may not have been released. 

-600 Task to be disconnected is not on the active task list (i.e., 
node not present) 


3.6.2 Connect Task Directive 


The connect task software directive instructs PIREX to add a new task 
to the system. Once a task has been connected to PIREX, the XVM and/or 
other tasks may issue requests (task control blocks) to it. The format 
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of the task control block for the connect task software directive is 
as follows: 


15 8_j_7 £, 



ATA 

_i»ii 

1 

| ALV 

* i i » t i i i i 

i 

' ' 

FCN 

_! » I 1 

; 201 

J ! ! ! ! ! 1 1 1 

_ i 

REV ; 

' ! I ! ! 1 ! I 1 I ! 1 1 l l l 1 


00 1 
iiii 

! TCN 

» f. .i i i i t i t 

i 


fill 

REL 

i i i i i t i i i 

i . 

1 

_I ! 1 L_ 

unused 

J I ! ! ! ! 1 l 1 

i 

Entry Point [ 

t * fivtvvfivvttvi 

Length J 

! ! ! ! ! 1 ! 1 ! ! 1 L l il t 

l 

l 

unused 

J t '-J. 

1 

! Priority 

i 

i 

i 

f 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
word 7 
word 10 


TCN 


The new task's task code number (TCN) 


REL 


Entry 

Point 


Length 


000000 if the new task resides in XVM memory. 

100000 if the new task resides in PDP-11 memory. 

Address of the new task's entry point - i.e., the 
first location of the task's program code. This 
address is a PDP-11 byte address if the new task 
resides in PDP-11 memory, a XVM word address if the 
new task resides in XVM memory. 

Total size (in bytes) of the memory space occupied by 
this task, including stack area, control register, 
busy/idle switch, and program code. Only meaningful 
if the task resides in PDP-11 memory - if the task re- 
sides in XVM memory this is ignored. 


Priority The task's priority *40 g . 


The connect task directive enters the new task start address (appro- 
priately relocated if the new task resides in XVM memory) into the 
TEVADD table. The directive does not actually create an active task 
list node for the new task; this occurs only when the first request 
is issued to the new task. The directive clears the new task's busy/ 
idle switch (sets the task in idle state) and empties the new task's 
task request list. The new task priority is placed in the LEVEL 
table. If the new task resides in PDP-11 memory, PIREX updates its 
memory usage information by adding the size of the new task to the 
first free local memory address. 
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RESTRICTIONS: 


1. The task code number must not be in use (correspond to any 
currently connected or permanently installed task) at the 
time this directive is issued, 

2. The task code number must have been provided for when PIREX 
was assembled. As distributed by DEC, PIREX provides for 
task code numbers 0^ through 13^ inclusive. 

3. The high order bit of the task code number must be clear. 

4. If the task resides in PDP-11 memory, the first address it 
occupies must be the first free local memory address, as 
returned by the core status report software directive. 

5. If the task resides in XVM memory, it must reside entirely 
within the area addressable by the PDP-11' s 28K addressing 
range. 

6. Tasks should be connected in sequential order by task code 
numbers. Temporary tasks (tasks which will subsequently be 
disconnected) should always be connected to a task code 
number one higher than that obtained via the core status 
report software directive. 


Returned REV values: 


1 Task successfully connected 
-300 Invalid ALV value. Task has been connected. 

3.6.3 Core Status Report Directive 

The core status report software directive returns information regarding 
PDP-11 local memory and task code number usage in PIREX. The format of 
the task control block for the core status report software directive is 
as follows: 


,15 

8,7 


0 , 


ATA 

1 

, 

, 

ALV 



FCN 

iiti, 

, 

, 

1 , , , 1 

201 
, , LJ 



, , , , , 

REV 

, » i « 

LI , , 



00 2 
, » , 1 t 

i 

, 

, 

L I , L I 

TCN 

1 , i , 

, T 


Local 

,,,,, 

Memory 

, , , , i 

Size 

, , , , 



First 

» i , i 

Free Address 

! ! ! ! 1 ! I L 

! 

i i 

I unused J 

,1,1,1,1111111,11 

, 

, 

, 

, 

Number 

till* 

of Free 

,,,,, 

Words 

,,,, 

, 

1 

, , 


word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
word 7 
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TON Set to the highest currently connected task code 

number in PIREX. 

Local The amount of local memory in the PDP-11 UNICHANNEL. 

Memory 

Size 

First Set to the PDP-11 byte address of the first free 

Free (unoccupied) address in local memory. 

Address 

Number of Set to the number of unused words in PDP-11 local 
Free memory. Equal to ((Local memory size in bytes) - 

Words (First free address) )/2. 


RESTRICTIONS: 


1. The core status report software directive has no restrictions. 
However, the restrictions (especially those regarding order 
of use of memory and task code numbers) on the connect and 
disconnect software directives must be adhered to in order to 
have valid information returned by the core status report. 


Returned REV values: 


1 Successful completion 

-300 Invalid ALV value. No information returned. 

-500 No free PDP-11 memory. No information returned. 


3.6.4 Error Status Report Directive 


The error status report software directive returns information regard- 
ing device and/or spooler errors which have occurred since the last 
time this directive was issued. The format of the task control block 
for the error status software directive is as follows: 


15 

hi 

_!■ 


ATA 

i i ii i 

j ALV 

i i 

i i 

FCN 

1 1 A ! !_ 

! 201 
1 1 ! I ! i L 

—I. » 

’ REV : 

i l 1 1 1 1 ! ! J ! ! ! ! ! ! — I — ! 

i 

f 

i 

i i 

m 

\ \ ' i i 

— 1 

J unused 

» » t J J — ! — l 

...I— 


Returned 


/ Error / 

J Information i 

I I ? t i » I 1 J- L 1 » f i_. J ! ' 


word 0 
word 1 
word 2 
word 3 
word 4 

v/crd n 
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The error status report software directive copies error status infor- 
mation from the DEVST table onto the requestor's task control block, 
then clears the DEVST table to store new error information. The error 
information returned consists of a series of three word blocks, one 
per PIREX task. As distributed by DEC, eleven such blocks will be re- 
turned - one for each permanent task (excluding the clock task) plus 
two more for spare or temporary tasks. The number of these blocks re- 
turned may change, however, if users alter the number of tasks (espec- 
ially permanent tasks) in PIREX. The format of each of these three 
word information blocks is as follows: 


word 0 
word 1 
word 2 

Task Name A three character f.SIXBT) mnemonic for the task 

to which the error information applies. 

DEVERR Device error code for device associated with this 

task. 

SPLERR Spooler error code for this task. 

The mnemonics for. the tasks and the order in which the blocks for the 
various tasks appear are as follows: 


15 8/7 £ 

Task Name 

I I 1 1 » 1 L .1 I T 1 . 1 1 1— L. 


unused — zero 

» » « t. I I I | t T I 1 III 

SPLERR 5 DEVERR 

i i « i i t j t t i t t i j— > 


MNEMONIC 

EST 

ESD 

DKU 

DTU 

LPU 

CDU 

GRU 

ESP 

LVU 


TASKS 

"Stop Task" task 
Software directive task 
RK (Cartridge) disk driver 
DECTAPE driver 
Line Printer driver 
Card reader driver 
XY (Plotter) driver 
Spooler 

LV11 printer/plotter driver 
spare — no mnemonic 
spare — no mnemonic 
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r 


RESTRICTIONS : none 

Returned REV values: 

1 Successful completion. 

-300 Invalid ALV value. Information has been returned. 

3.6.5 Spooler Status Report Directive 

The spooler status report software directive returns information regard- 
ing spooler status and devices present in PIREX. The format of the 
task control block for the spooler status report software directive is 
as follows: 

word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
word 7 

SPOLSW, SPUNIT, DEVARE, and DEVSPL are four locations (within PIREX) 
in which information is kept concerning spooler status and which devices 
have been assembled into PIREX. The spooler status report software 
directive merely copies the contents of SPOLSW, SPUNIT, DEVARE, and 
DEVSPL into the task control block. Three of these words consist of 
a number of one-bit flags. If the bit is set (1) the corresponding 
condition is asserted: the device driver is present, spoolable, or 

busy; the activity is enabled. If the bit is clear (0) the opposite 
condition applies: the device driver is absent, non-spoolable, or 

idle, the activity is disabled. The exact format of these three words 
is as follows: 
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jooling enabled 
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KY busy 
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spooler connected to PIP.EX 
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1 1 1 1 t 1 1 1 1 1 1 
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DEVSPL ! 

i i i 
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j SPUNIT | 
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DEVARE; L 


k 1 

— i 

. *! unused 



U- 


Uf » 1 1 t 1 1 1 T 1 

f i i 


| XY driver present 
I CD driver present 
LP driver present 
RK driver present 


DEVSPL: 



W 

° 1 ' V 

* *! unused 


fl 

! 3 

1 XY spoolable 
CD spoolable 
LjP spoolable 


unused 


SPUNIT is the RK unit onto which the spooler is currently (or was pre- 
viously) spooling data. 


RESTRICTIONS: 

1. DEVSPL and SPOLSW contain zero until after the first request 
has been issued to the spooler. 


Returned REV value: 


1 Successful completion. 

-300 Invalid ALV value. Information has been returned. 
3.6.6 PIREX MOVE Directive 


NOTE 

This directive commonly is used to transfer 
information between common and local memory 

The PIREX MOVE directive moves information from one place in the 
PDP-11' s address space to another place in its address space. (The 

address space is composed of both Local-11 and Common Memory.) The 
format of the task control block for the PIREX MOVE directive is as 
follows : 
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word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 


From Location 
To Location 
Words to Move 


PDP-11 byte address of beginning of information 
to be moved. 

PDP-11 byte address of a new starting location 
for information. 

The number of words to move. 


15 


8 7 


ATA 


FLN 


005 


i i i i i 


ALV 


201 


REV 


>iii 


iitri 

FROM LOCATION 
! ! ! ! » . » . 


TO LOCATION 

_J i \ i .) ) 


WORDS TO MOVE 

>ii)ii 
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CHAPTER 4 
TASK DEVELOPMENT 


4.1 INTRODUCTION 

This chapter discusses in detail the procedure for developing a task 
and for installing it into the PIREX software system. The development 
of tasks in the UC15 system normally begins by the determination of 
the function to be performed by the task. Once the basic function of 
the task has been determined and designed, the user can integrate it 
into the UC15 system. The following summary describes the steps nec- 
essary to accomplish this: 

1. Determine the priority level at which the task will execute. 

2. Design one or more appropriate TCB formats. 

3. Assign a Task Code Number to the task. 

4. Enter appropriate information into the various PIREX lists 
and tables. 

5. Design and code the requesting program. This is the program 
which issues requests to the task. 

6. Design and code the task. 

7. Assemble all programs and test. 

The remaining sections describe these steps in detail. 

4.2 PRIORITY LEVEL DETERMINATION 

The selection of a priority level for a newly developed task must be 
based upon its function. If the task is a device driver, a device 
priority should be selected. If the task is a data manipulation rou- 
tine, a background priority should be chosen. 

4.2.1 Device Priorities 

The device priorities are 7 (highest) through 4 (lowest) . 

• Priority 7 must be reserved for certain PIREX routines and 
should not be used as a task priority. (Certain short 
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instructions sequences require priority level 7 protection 
but a general use of priority 7 must be avoided.) 

• Priority 6 should be used only if interaction with the CR11 
Card Reader can be avoided. If the CRll is in use, excessive 
IOPSUC CDU 74 errors (card column lost) will occur if this 
level is used by another task executing in parallel. 

• Priorities 4 and 5 can be used in an unrestricted manner. 


There are three types of priorities to consider when selecting the 
priority of a device driver. 

1. The actual device hardware priority N. 

2. The priority stored in the trap vector for the device (its 

new PS) must be priority 7 to allow an uninterrupted context 

switch. 

3. The priority at which the task will execute after the context 
switch (R . SAVE) . This should be N (the above constraints 
must be considered before deciding that it will be N) . This 
priority is set in the LEVEL table (see Section 3.3.6). 

4.2.2 Background Task Priorities 

The standard UC15 PDP-11 computer does not differentiate between the 
software priorities 0 through 3. All software priorities are inter- 
ruptable by any device operating at any device priority. These soft- 
ware priorities, while treated by the hardware as the same, are not 
treated by PIREX as identical. The background task's position in the 
Active Task List (the list to schedule the next task to run) is based 

upon its priority (as indicated in the LEVEL Table) . Thus a priority 

2 task is always selected for execution before a priority 1 task. 

It should always be remembered that the ATL is built dynamically and 
is composed of only active tasks. Thus a task's actual ability to 
execute depends both on its priority and on what other tasks of equal 
or greater priority are actually available to execute (active) . Tasks 
of the same priority are run on a first come-first serve basis. 

4.3 TCB FORMAT AND LOCATION 


The design of new Task Control Blocks (TCBs) must be governed by sev- 
eral constraints: 
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1. Certain "fixed" items of information must be present. 

2. There may be a size constraint depending upon source of the TCB. 

3. TCBs issued by the XVM have a location constraint. 

The first three TCB words have a fixed format (see Section 3.2.5). 

The remainder of the TCB should be as follows: 


1. Control words should be allocated to fixed pre-defined loca- 
tions. 

2. Data words should be blocked into the location following the 
control words. 

3. The TCB size should be kept constant for ease of core allo- 
cation. 

Location and size constraints are interrelated: 


1. If the TCB is for a task executing under PIREX in PDP-11 
Local Memory/ there is no location constraint. The TCB size 
must be kept small enough so that the TCB does not overflow 
into common memory. 

2. If the TCB is for a PDP-11 task executing in Common Memory/ 
it must be positioned so that it is: 

a. present entirely in Common memory (not XVM Local 
Memory/ and 

b. not overlaying any of the XVM monitor resident code. 

These constraints actually apply to any PDP-11 Code or data 
located beyond PDP-11 Local Memory. 

3. If the TCB is for an XVM/RSX routine, it must be located in 
a task partition or common area that is within the Common 
Memory . 

4. Since the specification of absolute core location is difficult 
in XVM/DOS / the TCB placement problem is somewhat more com- 
plex. The standard XVM/DOS system has seven TCBs assembled 
into the resident monitor. These include TCBs for RK Disk, 

XY11 Plotter/ CR1 1 Card Reader and LPl 1/LV1 1/LSl 1 Printer. 

In addition there are three spare TCBs of various sizes. The 
user developing his own UNICHANNEL handler should take advant- 
age of these spare TCBs. . SCOM+lOO (location 200g in XVM 
memory) points to a table of pointers to each of these TCBs. 

The user should select the one closest to his size requirement. 
(See the XVM/DOS Systems Manual.) 


4.4 TASK CODE NUMBER DETERMINATION 


Task code numbers are composed of two fields. Bits 6 through 0 are 
used to contain the actual task code number. This is the number used 
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when searching tables and lists ordered by TCN . In the DEC-supplied 
system, these numbers range from 0 through 13 g . Bit 7 is used in TCBs 
to determine if the task is spooled. If bit 7=1, the task is not 
spooled. If bit 7=0, the TCBs for the task are routed to the spooler 
if the spooler is enabled. (There must then be a spooler module pre- 
pared to handle TCBs for that particular task (see Chapter 5).) 

Task codes 11, 12, and 13 are spare task codes in the DEC-supplied 
system. They are used in increasing order. The highest task code 
position must not be used for a permanent task because MACH requires 
this slot for its use as a temporary task (a task that is connected 
and disconnected at run time) . 

4.5 UPDATING LISTS AND TABLES 

The installation of a new task requires placing entries into the various 
tables and lists. There are two cases: 

1. the installation of a new task into a current spare task entry. 

2. the installation of a new task into a new entry (by expanding 
the tables) . 

For each of these two cases there are two types of task entries: 

1 . permanent tasks 

2. temporary tasks 

A permanent task is one that is assembled into the PIREX binary. Its 
actual starting address and priority level are known. 

A temporary task is one that is dynamically connected to and discon- 
nected from PIREX. Its starting address is dependent upon its place- 
ment in memory. (Temporary tasks must be written in Position Inde- 
pendent Code - see MACH Assembler Language Manual.) 

Chapter 3 describes the format of each table entry. 

4.5.1 Temporary Task Installation - Existing Spare Entry 

To install a Temporary Task into an Existing unused Task Entry, TCN 
11 0/ 12 0 , or 13 0 , simply use the CONNECT and DISCONNECT directives. 

o o o 

No new table space and no new table entries are required. 
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4.5.2 Permanent Task Installation - Existing Spare Entry 


To install a Permanent Task into an Existing unused Task Entry, TCN 11 
or 12 perform the following: 


1. Update the LEVEL table entry for that TCN with the task's 
priority (see Section 3.3.6). 

2. Update the TEVADD Table entry for that TCN with the task's 
starting address (see Section 3.3.7). 

3. Optionally update the interrupt vector table if the task is a 
device driver task (see Section 3.3.9). 


4.5.3 Temporary Task - New Entry 


To install a Temporary Task into a new Temporary Task Entry (i.e., to 
expand the table to accommodate a new Temporary Task) perform the 
following: 


1. Add an entry to the ATLNP Table (see Section 3. 3. 1.2). 

2. Add an entry to the LISTHD Table (see Section 3.3.3). 

3. Add an entry to the LEVEL Table (use ".BYTE 0" as the priority 

value since this is a Temporary Task Entry and the actual 
task priority will be filled in by the connect directive) . 

4. Add an entry to the DEVST Table (see Section 3.3.5).^ 

5. Add an entry to the CLTABL (see Section 3.3.4). 

6. Add an entry to the TEVADD Table (use ".WORD 0" as the entry, 

since this is a Temporary Task entry that will be filled in 
by the CONNECT directive) . 

7. Add an entry in the SENDll Table (see Section 3.3.8). 


^PIREX transfers, upon request, the entire DEVST Table to the XVM/DOS 
monitor. The XVM/DOS resident monitor can accommodate a maximum of 
5 additional DEVST entries beyond the current 13 ft . Expansion beyond 
20^ entries would require reassembly of the XVM/DOS resident monitor. 
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4.5.4 Permanent Task Installation - New Entry 

For a new Permanent Task, repeat the procedure in paragraph 4.5.3, for 
a new Temporary Task, with the following changes: 

1. Step 3 is changed to; Place the task's priority in the new 
LEVEL Table entry (see Section 3.3.6). 

2. Step 6 is changed to: Place the task's starting address in 

the new TEVADD entry (see Section 3.3.7). 

3. Optionally update the interrupt vector table if the task is 
a device driver task (see Section 3.3.9). 

4.6 CONSTRUCTING DEVICE HANDLERS 

This section describes how to construct device handlers for XVM/DOS and 
XVM/RSX. Additional information on construction of a PDP-11 requesting 
task is provided. 

4.6.1 Constructing a XVM/DOS UNICHANNEL Device Handler 

The following description of how to construct a handler for the XVM/DOS 
monitor does not discuss those topics related to all XVM/DOS handlers 
both traditional and UNICHANNEL. General issues pertaining to all 
XVM/DOS device handlers can be found in the XVM/DOS Systems Manual. The 
UNICHANNEL Line Printer handler is used as a descriptive example (see 
Figure 4-1) . Several constants should be defined in a UNICHANNEL hand- 
ler source file before the executable code (see Figure 4-1, lines 
48-55, 71-73) . These constants include: 
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2 LPU. X V M VIA 122 

5 CAL ENTRANCE 

6 INTERRUPT SERVICE 

7 ERROR ROUTINE 

B • I N I T FUNCTION 

9 .WRITE FUNCTION 

15 .CLOSE FUNCTION 

16 .WAIT FUNCTION 

17 INITIALIZATION CODE ANO TEMPORARIES 


PAGE 1 LPU. 122 


1 


*G 

*G FRRXVM 
*G 
♦ G 


.SYSID < , TITLE LPU. 

•OEFIN .SYSID, FR,BK 
V 1 A^ BK 
, ENOM 

.SYSID < .TITLE LPU, 


>,< 1 22 > 


>,< 1 22 > 


PAGE 


LPU, 122 LPU. XVM VIA 122 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
lb 

17 

18 

19 

20 
21 


*G .TITLE LPU. XVM VIA 122 

/ 

/COPYRIGHT (C) 1975 

/DIGITAL EQUIPMENT CORPORATION, MAYNARU, MASS. 

/ 

/THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
/ON A SINGLE COMPUTER SYSTEM ANO MAY BE COPIED ONLY WITH 
/THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
/SOFTWARE, OH ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 
VIDED UR UTHERwISE MADE AVAILABLE TO ANY OTHER PERSON 
/EXCEPT FUR USE On SUCH SYSTEM AND TO ONE WHO AGREES TO 
/THESE LICENSE TERMS. TITLE TU AND OWNERSHIP UF THE 
/SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
/WITHOUT NOTICE And SHUULD nOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION, 

/ 

/DEC ASSUMES NO RESPONSIBIL I T Y FOK THE USE OR RELIABILITY 
/OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
.EJECT 


PAGE 

3 

LPU. 

122 

LPU. XVM VIA 122 




22 




/ 





23 




/ EDIT 

legeng. 




24 




/ 





25 




/ 120 

05-JUN-75 

(RCHM) 

MAKE 

XVM CHANGES. 

26 




/ 121 

05-JUN-75 

(RCHM) 

TAKE 

OUT NON-ESSENTIAL CONDITIONALS 

27 




/ 122 

22- JUL-75 

C RCHM) 

TEST 

STATE OF UC15 ENABLED BIT, 

2 8 




/ 





29 





.EJECT 





Figure 4-1 

XVM LP 11 DOS Handler 
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LPU. XVM VIA 122 


30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 


/ J , M . WOLFBEHG (S. RUOT) 

/LPU.--IUPS LINE PRINTER HANDLER FUR LP11 LINE PRINTER 
/GALLING SEUUENCE: 

/ CAL + .DAT SLUT (9-17) 

/ FUNCTION 

/ N ARGS, WHERE W IS A FUNCTION OF "FUNCTION" 

/ NURMAL RETURN 

/BITS 12-13 OF .SCUM+4 INDICATE PRINTER. 

/ 

/ 

/ 

/ 


00= UNDEFINED. 
Ul= 80 COLUMNS. 
10= 120 COLUMNS. 
11= 132 COLUMNS. 


/ASSEMBLY PARAMETERS! 

/ N U F F = 1 INHIBITS AUTOMATIC END OF PAGE FORM FEED 

/ FFCNT CAN BE DEFINED AS NUMBER UF LINES PER PAGE IF NOFF UNDEF. 
/ DEFINE FFCNT IN I I OCTAL 1 1 

/ IF FFCNT AND NUFF tiOTH UNDEF , , 56 LINES PER PAGE IS DEFAULT, 


47 



/ 



48 

OU 000 2 

A 

API L VL=2 



49 

000056 

A 

AP I SLT=56 



50 



/ 



51 

70bl 41 

A 

LSSF=APILVL*20+70ol01 



52 

706001 

A 

SI0A = 7 060 0 1 

/SKIP UN DATA ACCEPTED 

BY THE POP 1 1 

53 

7 0 bO06 

A 

LIUR = 7 U 600 6 

/CLEAR "DONE" FLAG AND 

LOAD REG FUR 

54 




/ THE PDPU. 


55 

706144 

A 

CAP1=APILVL*20+706104 

/CLEAR FLAG 


56 



/ 



5 7 

000100 

A 

. SCUM= 1 00 



58 

000104 

A 

SC. MDD=. SCUM+4 

/(RCHM-122) .SCUM MOOE 

REGISTER. 

59 

000002 

A 

SC • UC 1 5=2 

/(KCHM-122) BIT WITHIN 

SC. MUD TO BE 

60 

000003 

A 

• MED=3 



61 

4 4 0 0 0 0 

A 

1 DX=I SZ 



62 

440UU0 

A 

SET=ISZ 

/USED TO SET SWITCHES 

TO NON-ZERO. 

63 

000137 

A 

EXERRS=. SCOM + 3 7 



64 



/ 



65 



.IFUND FFCNT 



66 

000072 

A 

FURMS= 7 2 



67 



. E N DC 



71 



.IFUND NOSPL 



72 

000004 

A 

DEVCUD=4 

/CUDE FUR LP DRIVER IN PIREX 


73 



. ENDC 



77 



.GLOBL LPA. 




PAGE 5 

78 

79 

80 
81 
82 

83 

84 
8b 
86 

87 

88 

89 

90 

91 

92 

93 

94 
9b 
9b 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 


LPU. 122 CAL ENTRANCE 


.TITLE CAL ENTRANCE 


00000 

R 

040540 

R 

LPA. 

DAC 

bPCALP 

/SAVE CAL PUlNfER. 

00001 

H 

040541 

R 


DAC 

LPARGP 

/AND ARGUMENT POINTER. 

00002 

R 

44054 1 

R 


IDX 

LPARGP 

/POINTS 10 WORD 2 - FUNCTION CODE. 





/ FIRST TIME THRU Gu C 

AL INIT. CODE IN LBF 

00003 

H 

600547 

R 

NEw 

JMP 

I N i T 

/FIRST TIME THRU DO SETUP CAL 





/ 



/AND SET-UP TCB AND BUFFER. OVERWRITE 





/ 



/JUMP WITH NQ-OP 

O0o04 

R 

220541 

R 


LAC * 

LPARGP 


00005 

K 

440541 

R 


IDX 

LPARGP 

/POINTS TO WORD 3 - BUFFER ADDRESS. 

00006 

R 

500b 3 3 

R 


AND 

( 17777 

/STRIP OFF UNIT NUMBER. 

00007 

rt 

340634 

R 


TAD 

(JMP LTABL-1 /DISPATCH TO PROCESS FUNCTION. 

00010 

R 

U40U1 1 

R 


DAC 

. + 1 


00011 

R 

740040 

A 


XX 



0U012 

H 

6001 0 3 

K 

LTABL 

JMP 

LP 1 N 

/I - .INIT 

0001 i 

R 

741000 

A 


SKP 


/2 - . FSTA1 , .KENAM, .DLETE - IGNORE 

00014 

R 

600024 

R 


JMP 

LPEROb 

/3 - .SEEK - ERROR 

00015 

H 

440541 

R 


IDX 

LPARGP 

/ 4 - .ENTER - IGNUKE 

00016 

R 

600134 

R 


JMP 

LPNEXT 

/5 - .CLEAR - IGNORE 

00017 

R 

6004bb 

R 


JMP 

LPCLuS 

/6 - .CLOSE 

00020 

H 

6 o U 1 34 

K 


JMP 

LPNEXT 

/7 - . M TAPE - IGNORE 

00021 

R 

60U024 

R 


JMP 

LPEROb 

/10 - .READ - ERROR. 

00022 

R 

60U1 3b 

K 


JMP 

LPwRIT 

/II - .WRITE 

00023 

H 

bUU506 

R 


JMP 

LPWAIT 

/ 1 2 - .WAIT OR , wAITR 

00024 

R 

7 b U 0 0 6 

A 

LPEROb 

LAw 

b 

/ILLEGAL HANDLER FUNCTION. 

00025 

R 

60UU 7 3 

K 


JMP 

SETEKR 


0002b 

R 

VbUOb ? 

A 

10PS6 7 

LAw 

b 7 

/(RCHM-120) FETCH MEMORY BOUNDS ERROR MESSAGE 

00027 

R 

600073 

R 


JMP 

SETEKR 

/(RCHM-120) GU PRINT ERROR. 

00030 

R 

76U012 

A 

1UPS12 

LAW 

12 

/(RCHM-122) FETCH TERMINAL I/O ERROR MESSAGE. 

00031 

R 

b 0 0 0 7 3 

R 


JMP 

SE TERR 

/(RCHM-122) GO PRINT ERRUR , 


Figure 4-1 (Cont.) 
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INTERRUPT 

SERVICE 



111 







.TITLE 

INTERRUPT SERVICE 

112 






/ 




113 






/LPU. 

INTERRUPT 

SERVICE 


114 


QUO 32 

R 

600042 

R 

lpint 

JMP 

LPPIC 

/pic entry, jump tu code 

lib 


000 3 3 

R 

0 40b bb 

R 


0 AC 

LP AC 

/SAVE INTERRUPTED AC 

116 


00034 

R 

200032 

R 


LAC 

LPINT 

/GET INTERRUPTED PC 

117 


00035 

R 

040567 

R 


OAC 

LPUUT 

/SAVE FUR CUMMON EXIT 

118 


00036 

R 

200o35 

H 


LAC 

(JMP LPPIC /RESTORE PIC ENTRY 

119 


00037 

R 

040032 

R 


DAC 

LPINT 


120 


00040 

R 

200636 

R 


LAC 

(NOP 

/.VE DON'T NEED ION IN CUMMUN EXIT 

121 


00041 

R 

600046 

R 


JMP 

LPICM 

/JOIN CUMMON CODE 

122 






/ 




123 


00042 

R 

040566 

R 

LPPIC 

OAC 

LP AC 

/PIC CODE, SAV AC 

124 


00043 

R 

220637 

R 


LAC* 

(0 

/GET INTERRUPTED PC 

125 


0004 4 

R 

040567 

R 


OAC 

uPOUT 

/SAVE 

126 


00045 

R 

200b 40 

R 


LAC 

( ION 

/need Interrupt on inst. in common code 

127 


0004b 

R 

040056 

R 

LPICM 

OAC 

LPISW 


128 


00047 

R 

706144 

A 


CAP1 


/CLEAR FLAG, NJw IN COMMON CODE 

129 


00050 

R 

220553 

R 


LAC* 

bPEV 

/EVENT VARIABLE FROM PIREX 

130 


00051 

R 

7420X0 

A 


RTL 


/PDP-11 (MINUS) BIT TO OUR ACO 

131 


00052 

K 

743120 

A 


SPA1RTR 


/+ IS OK 

132 


00053 

R 

600061 

K 


JMP 

LPIERR 

/ERROR, GO LOOK 

133 


00054 

R 

140544 

R 

LPIRT 

DZM 

LPUNL) 

/CLEAR UNDERWAY FLAG 

134 


00055 

K 

2005 bb 

R 

LPIRT1 

LAC 

LP AC 

/RESTORE AC 

135 


0005b 

R 

740040 

A 

LPISw 

HLT 


/ION OR NOP 

136 


00057 

R 

703344 

A 


OUR 



137 


00060 

R 

620567 

R 


JMP* 

LPUUT 


138 






/ 




139 






/ 




140 


00061 

R 

500641 

R 

LPIERR 

AND 

(177777 

/KEEP REAL 16 BITS FROM PDP-11 

141 


00062 

R 

540042 

R 


SAL 

(17/001 

/CODE FROM OUT OF NODES IN PIREX 

142 


00063 

R 

600066 

R 


JMP 

RETRY 

/JUST TRY AGAIN, LEAVING LPUND SET 

143 


00064 

R 

340643 

K 


TAD 

(600000 

/MAKE - NUMBER FUR IOPS 

144 


00065 

R 

6000 73 

K 


JMP 

SETERK 

/TREAT AS REGULAR IOPS ERROR 

145 






/ 



/NOTE THAI THIS SHOULDN'T HAPPER. 

146 






/ 




147 






/ 




148 


00066 

R 

200550 

R 

RETRY 

LAC 

LPTCb 

/TC8 ADDRESS 

149 


00067 

R 

706001 

A 


S1UA 



150 


000 70 

R 

60006 / 

R 


JMP 

.-1 

/ 

151 


0007 1 

R 

70600b 

A 


LIUH 


/THIS MAGIC SHIPS TCB ADDR, TO PDP-11 

152 


00072 

H 

bUUObb 

R 


JMP 

LPIHT1 

/EXIT FROM INTERRUPT 

153 






/ 




154 






/ 
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ERROR ROUTINE 



155 







.TITLE ERROR ROUTINE 



156 






/ 




157 


00073 

K 

040102 

R 

SETERR 

DAC ERRnUM 



158 


00074 

H 

740000 

A 

ERLUUP 

NOP 

/•JMP LPTRY' 

IF IOPS 4 ERROR. 

159 


00075 

R 

200102 

R 


LAC ERRNUM 



160 


00076 

R 

120644 

R 

EKUUT 

J MS* (EXEKRS 



161 


000 77 

R 

b 0 0 0 7 4 

R 


JMP ERLOJP 



162 


00 1 00 

K 

7/7/7/ 

A 


LAw -1 



163 


00101 

H 

142025 

A 


.SIXBT 'LPU» 



164 


00102 

R 

000000 

A 

ERRNUM 

0 

/HOLDS ERRUK 

NUMBER FOR REPEA 


Figure 4-1 (Cont.) 
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.WRITE FUNCTION 


202 

203 

204 

205 


.TITLE .WRITE FUNCTION 


/.WRITE 

/ 


206 

0013b 

R 

100524 

R 

LPwRIT 

JMS LPIOCK 

/PRINTER BUSlf? 

207 

00137 

R 

22O540 

R 



LAC* LPCALP 

/GET THE DATA MODE FROM THE USER CAL. 

208 

00140 

R 

500650 

R 



AND 

(1000 

/MAKE SKP" NUP IN MIX 

209 

00141 

R 

240651 

R 



XOR 

(SKP 


210 

00142 

R 

U 405 b5 

R 



DAC 

MIX 


211 

00143 

R 

220541 

R 



LAC* 

LPAKGP 

/USER BUFFER ADORESS. 

212 

00144 

R 

440541 

R 



IDX LPARGP 

/NON POINTS TO WORD COUNT 

213 

00145 

R 

040561 

R 



DAC 

TCHAR 

/SAVE POINTER TO BUFFER HEADER 

214 

00146 

R 

723002 

A 



AAC 

2 

/MAKE XI 2 POINT TO DATA NOT HEADER 

215 

00147 

R 

040570 

R 



DAC 

X12 

/GETTER POINTER 

216 

00150 

R 

5UU652 

R 



AND (700000) 

/(RCHM-12Q) EXTRANC EXTEND ADDRESSING BITS FROM 

217 

00151 

R 

740200 

A 



SZA 


/(RCHM-120) ARE ANY SET? 

218 

00152 

R 

60002b 

R 



JMP IUPS67 

/(RCHM-120) YES, ISSUE IOPS67 ERROR MESSAGE. 

219 





/ 





220 





/ 

SET 

UP LIMIT 

OF INPUT BUFFER SIZE TO PREVENT DATA OVERRUN 

221 





/ 

FUR 

BUTH 10PS ASCII 

AND IMAGE ASCII 

222 





/ 





223 

00153 

R 

777000 

A 



LAn 

17000 

/GET PAIR COUNT FROM LEFT HALF 

224 

00154 

R 

520561 

R 



AND* 

TCHAR 


225 

00155 

R 

742030 

A 



SwH A 


/BRING TO RIGHT. PAIR COUNT INCLUDES HEADER 

226 





/ 




/PAIR COUNT. WE ISZ BEFORE LOOP SO THAT'S 

227 





/ 




/UK. IUPS NOW SET XCPT CMA1IAC 

228 

00156 

R 

400565 

R 



XCT 

MIX 

/SKIP IF ASCII, NUT IF IMAGE 

229 

00157 

K 

751001 

A 



SKP1CLA* 

CMA 

/IMAGE -1 IN AC, SKIP. -1 BECAUSE rtE ISZ FIRST 

230 

00160 

R 

741031 

A 



SKP1CMA1IAC 

/TOPS COMPLEMENTED TO CORRECT VALUE 

231 

00161 

R 

3b054 1 

R 



TAD* 

UPARGP 

/IMAGE ADD IN TOTAL WORD COUNT, 1NCL 

232 





/ 




/TWO WORDS FOR HEADER, WE ISZ BEFORE LOUP. 

233 

00162 

K 

040554 

H 



DAC 

TEMPI 

/INTU CONTROLLER, BOTH .MODES 

234 

00163 

R 

440541 

R 



1SZ 

LPAKGP 

/MOVE ARG POINTER TO EXIT 

235 

00164 

R 

200552 

R 



LAC 

LPBUFD 

/POINTER TO DATA PORTION OF BUFFER 

236 

00165 

R 

040571 

K 



DAC 

PUTP 

/LOAD TO CHARACTER PUTTER POINTER 

237 

00166 

R 

200347 

R 



LAC 

GEl'IN 

/ 1 N I T • CHAR GETTEH 

238 

00167 

R 

040344 

R 



DAC 

GETS* 


239 

00170 

R 

200443 

R 



LAC 

PUTIN 

/INIT CtlAK PUTTER 

240 

00171 

R 

040441 

R 



DAC 

PUTSW 


241 

00172 

R 

750000 

A 



CLA 


/ I N 1 T OUTPUT BUFFER HEADER 

242 

00173 

R 

400565 

R 



XCT 

MIX 

/SO 0 IF IUPS, 400 FOR IMAGE 

243 

00174 

R 

200653 

R 



LAC 

(400 


244 

00175 

R 

060551 

R 



DAC* 

LPBUF 


245 

0017b 

R 

750001 

A 



CLAiCMA 


/COUNT OF 1 BLANK AS DEFUALT 

246 





/ 




/FOR ZERO LENGTH IOPS LINE 

247 

00177 

R 

060552 

H 



DAC* 

LPBUFD 

/IN FIRST DATA CHAK 

248 





/ 





249 





/ 

MAIN 

LOUP TO 

TRANSFER CHAR'S TO HANDLER HUFFER 

250 





/ 





251 

00200 

H 

100332 

R 

MAIN 

JMS 

GETCH 

/CHARACTER GETTER, LEAVES IT IN AC 

252 

U0201 

H 

741200 

A 



SNA 


/SKIP UNLESS NULL CHAR 

253 

00202 

R 

600200 

R 



JMP 

MAIN 

/NULL, ignore 


Figure 4-1 (Cont.) 
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NR1TE 

FUNC 

I ION 



254 

00203 

H 

540654 

R 



SAD 

C 1 7 7 

/IGNORE RUB-UUT 

25b 

00204 

H 

600200 

R 



JMP 

MAIN 

/MAIN 

25b 

00205 

R 

040561 

R 



UAC 

TCHAR 

/SAVE CHAR THROUGH TESTING 

257 

00206 

R 

723740 

A 



AAC 

-40 

/SEPARATE 'TEXT' CHAR'S FROM CONTROL CHAR' 

258 

00207 

H 

741300 

A 



SNA ISP A 


/SKIP ON REGULAR CHARS 

259 

00210 

R 

b 002 4 7 

R 



JMP 

MS PEC 

/GO DO SPECIALS 

260 

0021 1 

R 

540655 

R 



SAD 

C 135 

/ALT MODE 

2b 1 

00212 

R 

600314 

k 



JMP 

JCLP03 

/END UF LINE ON ALT MODE 

262 





/ 





263 





/ 

SGRR V ABOUT 

NE XT FIVE L NES. 

264 





/ 

THE 

LOGIC AT 

PJTCH 

TO DO FORMS CONTROL DOESN'T DO IMPLIED 

265 





/ 

LINE 

FEEDS, 

l.E. THOSE LIMES HAVING NO LEADING CONTROL CHAR, 

266 





/ 

RE HAVE TO FAKE IT 

OUT BY LACING A LINE FEED UN SUCH LINES! ? , 

267 





/ 





268 

00213 

R 

2 OObb 0 

R 



LAC 

FIRST 

/‘DU ONLY IF FIRST CHAR OF LINE IS REGULAR 

269 

0021 4 

R 

740100 

A 



SMA 


/SKIP IF FIRST CHAR 

270 

00215 

R 

600220 

R 



JMP 

« t3 

/NOT FIRST CHAR, JUST CONTINUE 

271 

0021b 

H 

2u0b56 

k 



LAC 

(12 

/HERE IS LINE FEED 

272 

0021 7 

R 

1 0U400 

R 



JMS 

hutch 

/AND CALL TO DO 1-ORMS CONTROL 

273 





/ 





274 

00220 

R 

750030 

A 



CLAI IAC 


/SET FLAG SAYING A REAL CHAR SINCE A FF 

275 

00221 

H 

040562 

R 



UAC 

COP 


27b 





/ 





277 

00222 

R 

200563 

R 



LAC 

BLANKC 

/DU NE HAVE PENDING BLANKS/TABS TO SEND 

278 





/ 





279 





/ 

NOTE 

BLANKC 

HAS MINUS COUNT Ot- CONSECTIVE BLANKS/TABS 

280 





/ 

SING 

E PDP-11 

CONTROLLER PRINTS UNLi BLANKS 

281 





/ 





282 

00223 

R 

74^100 

A 



SMA1CLL 


/SKIP IF ANY COLLECTED, TO PUT OUT BEFORE 

263 





/ 




/REAL CHAR'S 

204 

00224 

H 

600235 

R 



JMP 

M A INC 

/NONE, PENDING, GO PUT OUT THE CHAR 

285 

00225 

R 

3 4 0 b5 7 

K 



TAD 

(200 

/TOUGH, IF MURE THAN 12/ COLLECTED, MUST 

286 





/ 




/PUT OUT TwU COUNTS 

287 

0022b 

R 

750100 

A 



SMA 1C LA 


/SKIP IF NEED TwO COUNTS 

288 

00227 

R 

60 O 2 3 3 

R 



JMP 

MA1ND 

/nO, JUST PUT OUT COLLECTED COUNT 

269 

00230 

K 

3 4 Oob 7 

R 



TAD 

1200 

/TwO COUNTS, HERE IS FIRST 

290 

00231 

R 

1 00400 

R 



JMS • 

PUTCH 


291 

00232 

R 

200657 

R 



LAC 

(200 

/SET UP TO DO SECOND 

292 

002 3 3 

R 

340S63 

R 

MAi iVD 

TAD 

BLANKC 

/CUM MON CODE, LAST CUUnT FOH EITHER CASE 

293 

00234 

R 

1 00400 

R 



JMS 

PJTCH 


294 

00235 

K 

1 4Ubo 3 

K 

MAINZ 

DZM 

HjjANKC 

/CLEAR OUT BLANK COUNTER 

295 

0023b 

R 

20O5o 1 

k 



LAC 

TCHAR 

/GET BACK ORIGINAL CHAR 

296 

002 37 

R 

1 004 O0 

K 



JMS 

PUTCH 

/TO 0UTPU1 BUFFER 

297 

00240 

K 

440564 

R 

M.AlNK 

1SZ 

TAHC 

/increment tab counter 

298 

00241 

R 

b0 02 44 

R 



JMP 

Maine 

/not OvERFLUW, GO check line COUNTER 

299 

00242 

K 

777770 

A 



LA* 

-10 

/RESET TAB COUNTER 

300 

00243 

H 

040564 

R 



DAC 

TABC 


301 

00244 

R 

440557 

K 

MAINE 

1SZ 

MAXC 

/HAVE wE RUN OUT OF LINE 

302 

00245 

R 

600200 

K 



JMP 

MAIN 

/NO 

303 

00246 

R 

boOil 4 

R 



JMP 

UCLPOJ 

/YES , GO FINISH UP, WITH END OF LINE 

304 





/ 





305 





/ 

SPEC 

1AL CHARACTERS 



Figure 4-1 (Cont.) 
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WRITE FUNC 

tion 


306 





/ 



307 

00247 

R 

750201 

A 

MSPEC 

SZAiCLA 

1CMA 

308 

00250 

R 

600254 

R 


JMP 

MSPEC2 

309 

00251 

R 

340563 

R 


TAD 

BLANKC 

310 

00252 

R 

040563 

R 


DAC 

BLANKC 

311 

00253 

R 

600240 

R 


JMP 

MAI NK 

312 

00254 

R 

200561 

R 

MSPEC2 

LAC 

TCHAR 

313 

00255 

R 

540660 

R 


SAD 

(11 

314 

00256 

R 

600300 

K 


JMP 

MTAB 

315 

00257 

R 

540661 

R 


SAD 

(15 

316 

00260 

R 

600314 

R 


JMP 

UCLP03 

317 

00261 

R 

540662 

R 


SAD 

(20 

318 

00262 

R 

600275 

R 


JMP 

MCR 

319 

00263 

R 

540bb 3 

R 


SAD 

(14 

320 

00264 

R 

600270 

R 


JMP 

MSPEC 3 

321 

00265 

R 

5406 b 4 

R 


SAD 

(21 

322 

00 2 bb 

R 

b002 7 2 

k 


JMP 

MSPEC 4 

323 

00267 

R 

200b5b 

R 

MSPEC5 

LAC 

(12 

324 

00270 

R 

100400 

R 

MSPEC3 

JMS 

PUTCH 

325 

00271 

R 

600200 

R 


JMP 

MAIN 

326 

00272 

R 

200656 

R 

MSPEC 4 

LAC 

(12 

327 

00273 

R 

100400 

R 


JrtS 

PUTCH 

328 

00274 

R 

60026 / 

R 


JMP 

MSP EC 5 

329 

00275 

R 

100455 

H 

MCR 

JMS 

RESETL 

330 

00276 

R 

200661 

K 


LAC 

(15 

331 

00277 

R 

600270 

R 


JMP 

MSPEC 3 

332 

00300 

R 

2005b 4 

R 

MTAB 

LAC 

I'ABC 

333 

00301 

R 

340563 

R 


TAD 

BLANKC 

334 

00 3 02 

R 

0405 b 3 

R 


DAC 

BLANKC 

335 

00303 

R 

200564 

R 


LAC 

f ABC 

336 

00304 

R 

740031 

A 


CMA1IAC 


337 

00305 

R 

340557 

R 


TAD 

MAXC 

338 

0030b 

R 

040557 

R 


DAC 

MAXC 

339 

00307 

R 

740100 

A 


SMA 


340 

00310 

R 

6003 1 4 

R 


JMP 

UCLP03 

341 

0031 1 

K 

777770 

A 


LAW 

-10 

342 

00312 

R 

040564 

R 


DAC 

T ABC 

343 

0031 3 

R 

600200 

K 


JMP 

MAIN 

344 





/ 



345 

00314 

K 

200661 

R 

UCLP03 

LAC 

(15 

346 

003 1 5 

K 

4005b5 

R 


XCI 

MIX 

347 

0031b 

R 

100400 

H 


JMS 

PUTCH 

348 

00317 

H 

100455 

R 


JMS 

RESETL 

349 

00320 

R 

440562 

R 

UCLP04 

1SZ 

COP 

350 

00321 

H 

220551 

R 


LAC* 

LPbUF 

351 

00322 

R 

5006b 5 

R 


AND 

(377 

352 

00323 

K 

740200 

A 


SZA 


353 

00324 

H 

6UU330 

R 


JMP 

UCLP05 

354 

00325 

R 

400565 

R 


XCT 

MIX 

355 

0032b 

R 

600134 

R 


JMP 

LPnEXT 

356 

00327 

R 

460551 

R 


ISZ* 

LPBUF 

357 





/ 




/SKIP IK IT IS A BLANK 

/NUPE, CHECK FOR OTHER THINGS 

/ADD ONE TU BLANK COUNTER (IS MINUS COUNTER) 

/JOIN LINE AND TAB CONTROL SECTION 

/GET BACK ORIGINAL CHAR 

/IS IT A TAB 

/YUP, GO DO IT 

/CARRIAGE RETURN 

/END OF LINE ON CARRIAGE RETURN 
/FORTRAN OTS UVERPKInT, UU AS CK 

/FORM FEED 

/JUST PUT IT OUT, FOR NOw 
/FORTRAN double SPACE 
/DO AS 1*0 1 2 ' S 

/DEFAULT ON UNRECOGNIZED CONTROL CHAR. IS LINE FEED 
/PLACE IN BUFFER 
/GO 00 NEXT 

/FIRST OF TWO 12 ’S FOR THE 21 

/GO DO THE SECOND 112 

/NEw LINE, RESET VARIOUS GUTS 

/CARRIAGE RETURN 

/PUT CHAR AND LOOP 

/GET REMAINING COUNT FUR TAB 

/AND ADD TU CUMULATIVE BLANK COUNT 

/AND TO LINE CHECKER 


/SKIP IF SOME LINE LEFT 
/NONE LEFT , FINISH UP LINE 

/RESET TAB COUNTER 
/NEXT CHAR 

/CARRIAGE RETURN 

/PLACE IN bUFFER ONLY ON IMAGE l 1 l 


/A BLANK LINE IS STILL A REAL CHAR SINCE FF 
/ZERO CHAR COUNT?? 

/COUNT ONLY IN LOw 8 BITS 

/SKIP IF ZERO COUNT 

/NON-ZERO, JUST GO 00 REGULAR 

/IMAGE OR IOPS 

/IMAGE 00 NOTHING 

/IOPS MAKE FAKE 1 COUNT 

/wE ARE DOING A BLANK LINE, AND 0 
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, WRITE FUNCTION 




358 





/ 


/COUNT MAKES 

SPUQLER VERY 

359 

00330 

R 

1U0531 

R 

UCLP05 J MS 

LPSET 

/SEND BUFFER 

TU PDP-11 

360 

00331 

R 

600134 

R 

JMP 

bPNEXT 

/CAL EXIT 



361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 


CHARACTER UNPACKING ROUTINE 


THIS ROUTINE ' OWNS ■ THE MU 


CHARACTERS ARE OBTAINED PROM X12 POINTER, EACH CHAR 
IS RETURNED RIGHT JUSTIFIED IN THE AC 
TEMPI HAS A MINUS CUUNT OF f HE WORDS TO BE OBTAINED 
FROM THE INPUT POINTER X12 


373 

00332 

R 

OOOUUU 

A 

GETCH 

0 



374 

00333 

R 

40U565 

R 


XCT 

MIX 

/SKIP IF IT IS ASCII 

375 

00334 

K 

741U00 

A 


SKP 



376 

00335 

R 

620344 

R 


JMP* 

GETSW 

/GETSw IS POINTER TO COHRECT ACTION ON UNTHE 

377 





/ 



/CORRECT ONE OF THE FIVE POSSIBLE CHAR'S 

378 





/ 




379 





/ NOW 

DU IMAGE MUOE 


380 





/ 




381 

00336 

R 

440554 

R 


ISZ 

TEMPI 


382 

00337 

R 

741000 

A 


SKP 


/SKP ON NOT THHU YET 

383 

00340 

R 

600320 

R 


JMP 

UCLP04 

/UUNE 

384 

00341 

R 

220570 

R 


bAC* 

X 1 2 


385 

00342 

K 

440570 

R 


ISZ 

X 1 2 


386 

00343 

R 

600345 

R 


JMP 

GETCM 

/FINISH UP IN COMMON 

387 





/ 




388 

00344 

R 

OUOUOO 

A 

GETSw 

0 


/POINTER TU CORRECT ACTION. INI T ' ED FROM GETIN 

389 





/ 



/FILLED BY JMS GETSW AFTER EACH CHAR 

390 

00345 

R 

5U0654 

R 

GETCM 

AND 

C 1 7 7 

/COMMON FINISH UP, STRIP XTRA BITS 

391 

00346 

R 

620332 

R 


JMP* 

GETCH 

/OUT 

392 





/ 




393 

00347 

R 

000351 

R 

GETIN 

GET! 


/IN IT GETSw TO POINT TO FIRST CHAR ACTION 

394 





/ 




395 





/ INDIVIOULA 

CHARACTER 

ACTION 

396 





/ 




397 

00350 

R 

100344 

R 

GETO 

JMS 

GETSW 

/AFTER 5 TH CHAR, POINT BACK TO FIRST 

398 





/ 




399 

00351 

R 

440554 

R 

GET 1 

ISZ 

TEMPI 

/OUT OF PAIRS? 

400 

00352 

R 

600355 

R 


JMP 

, + 3 

/CONTINUE IF OK 

401 

00353 

R 

100455 

R 


J MS 

RESETb 

/END OF LINE RESET SUNE STUFF 

402 

00354 

R 

600320 

R 


JMP 

UCbP04 


403 

00355 

R 

220570 

R 


bAC* 

XI 2 

/FIRST WORD OF PAIR 

404 

00356 

R 

440570 

R 


ISZ 

X 1 2 


405 

00357 

R 

652000 

A 


LMQ 


/INTO MU FUR SHIFTING 

406 

00360 

R 

b 4 0 b 0 7 

A 


LLS 

7 


407 

00361 

R 

100344 

R 


JMS 

GETSW 

/DONE, LEAVE POINTER FOR SECOND CHAR 

408 

00362 

R 

640607 

A 

GET2 

LbS 

7 

/SECOND CHAR 

409 

00363 

H 

1 OU 344 

R 


JMS 

GETSW 

/LEAVING POINTER FOR THIRD 


Figure 4-1 (Cont.) 
XVM LP11 DOS Handler 
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LPU. 


122 


, WRITE 

FUN 

CTION 




410 

00364 

R 

640604 

A 

GET 3 

ULS 


4 

/THE HALF-AND-HALF CHAR 

411 

00365 

R 

04U344 

K 



UAC 


GETSW 

/VERY TEMPORARY 

412 

00366 

R 

220570 

R 



LAC * 


XI 2 

/CAN'T END IN MIDDLE OF PAIR 

413 

00367 

R 

440570 

R 



ISZ 


X 1 2 


414 

00370 

R 

652000 

A 



LMD 



/SECOND WORD TU SHIFTER 

415 

00371 

R 

200344 

R 



LAC 


GETSw 

/BHING BACK FIRST 

41b 

00372 

H 

64U603 

A 



LLS 


3 

/COMPLETE CHAR 

417 

00373 

R 

100344 

R 



JMS 


GETSW 

/LEAVING PUlNTER TO FOURTH ACTION 

419 

00374 

R 

640607 

A 

GET 4 

LLS 


7 


419 

003 /5 

R 

1O034 4 

R 



JMS 


GETSW 

/LEAVING FUR 5 

420 

00376 

K 

640607 

A 

GETS 

LLS 


7 


421 

00377 

R 

600350 

R 



JMP 


GETO 

/BACK TJ TOP FUR POINTER TO 1 

422 





/ 






423 





/ 






424 





/ 






425 





/ 

CHARACTER 

PUTTER FOR 

PDP-11 

426 





/ 






427 





/ 

TWO 

CHAR'S 

PER NURD 

FORMAT. FIRST CHAR IS RIGHT JUSTIFIED, SECOND 

429 





/ 

IS 

PLACED 

IMMEDI ATEL* ABOVE FIRST, LEAVING TOP TrtJ BITS OF WORD 

429 





/ 

UNUSED. CHAR 

IS DELEVEHD TO US IN AC. 1N1T PUTSW b* DAC'ING CONTENTS 

430 





/ 

OF 

PUTIN INTO IT. ROUTINE COUNTS THE OUTPUT CHARS IN L6F 

431 





/ 






432 





/ 

THIS ROUTINE 

AlSU HANDLES FORM FEED PAGE CONTROL 

433 





/ 

THE 

PDP-11 

ASSUMES LINES HAVE A LF IN BEGINNING AND CR AT END 

434 





/ 

SO 

THIS ROUT 1 vE REMOVES AN* LEADING LF. 

435 





/ 






4 3b 





/ 






437 

00400 

R 

OOOUQO 

A 

putch 

0 




438 

00401 

R 

50 OfabS 

R 



AND 


(377 

/STRIP TO EIGHT BITS 

439 

00402 

R 

540656 

R 



SAD 


(12 

/SPECIAL CASE #1, LINE FEED 

440 

00403 

R 

600412 

R 



JMP 


PUTLF 

/GO DO IT 

441 

004U4 

R 

540663 

R 



SAD 


( 14 

/SPECIAL CASE #2, FORM FEED 

442 

00405 

R 

600427 

R 



JMP 


PUT FF 

/GO DO IT 

443 

00406 

R 

44U560 

R 

PUT* 

ISZ 


FIRST 

/BUMP FIRST TIME THRU SWITCH 

444 

00407 

R 

740000 

A 



NOP 



/IN CASE SKIPS, WE DON'T NEED IT HERE 

445 

00410 

K 

460551 

K 

PUTZ 

ISZ* 


LP8UF 

/COUNT AN OUTPUT CHAR 

446 

00411 

R 

620441 

R 



JMP* 


PUTSW 

/DISPATCH TO FIRST OR SECOND CHAR ACTION 

447 





/ 






448 

00412 

R 

200562 

R 

PUTLF 

LAC 


COP 

/HAS A REAL CHAR OCCURRED SINCE FF? 

449 

00413 

H 

740200 

A 



SZA 



/SKIP IF NO REAL CHAR 

450 

00414 

K 

600424 

R 



JMP 


PUTW 

/GO DO REGULAR 

451 

00415 

R 

220552 

R 



LAC* 


LPHUFD 

/IK WE ALREADY HAVE A FF 

452 

0041b 

R 

540663 

R 



SAD 


(14 

/IN BUFFER OUT, DON'T NEED A CR 

453 

00417 

K 

620400 

R 



JMP* 


PUTCH 


454 

00420 

R 

200661 

R 



LAC 


(15 

/LEAD WITH CR, SO PDP-11 DDESW 1 T PUT ON AUTOMATIC LF 

455 

00421 

K 

400565 

R 



XCT 


MIX 

/BUT DO NOTHING FOR IMAGE MODE 

45b 

00422 

R 

6 2U4O0 

R 



JMP* 


PUTCH 


457 

00423 

R 

60U4O6 

R 



JMP 


PUT* 

/GO REAJOIN 

458 

00424 

R 

200656 

R 

PUTW 

LAC 


(12 

/GET BACK LINE FEED 

459 

00425 

R 

400545 

R 



XCT 


FFSW 

/ISZ OR NOP FUR COUNT OF FF PER PAGE 

460 

00426 

R 

600434 

R 



JMP 


PUTLFH 

/NO FORM FEED NOW 

461 

00427 

R 

200542 

R 

PUTFF 

LAC 


PAGS1Z 

/FORM FEED, RESET PAGE COUNTER 


Figure 4-1 (Cont.) 
XVM LP11 DOS Handler 
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462 

463 

464 
4b5 

466 

467 

468 

469 

470 

471 

472 

473 

474 
4 75 

476 

477 

478 

479 

480 

481 

482 

483 

484 
48b 
486 
48 7 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 


PAGE 


499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 
51b 

517 

518 

519 

520 


LPU. 


122 


.WRITE KUNC 

■noN 



00430 

R 

040543 

H 


DAC 

PAGCNT 


00431 

K 

1 4ubb2 

R 


DZM 

COP 

/FLAG SAYING FF OCCURRED. 

00432 

R 

200663 

R 


LAC 

1 1 4 

/FORM FEED CODE 

00433 

K 

b0u4 10 

R 


JMP 

putz 

/GO COUNT CHAR, AND PLACE IT 

00434 

R 

400565 

K 

PUl’LFR 

XCT 

MIX 

/SKIP ON IOPS ASCII 

00435 

K 

b 0 04 0 o 

R 


JMP 

PUT If 

/IMAGE, ACTUALLY PLACE LF 

00436 

K 

440560 

R 


1SZ 

FIRST 

/ASCII, IS IT FIRST THRU? 

00437 

R 

60041 0 

R 


JtvlP 

PUTZ 

/NOT FIRST, DO LF 

0U 44 0 

K 

620400 

R 


JMP* 

PUTCH 

/FIRST TIME, JUST RETURN 

0 U 44 1 

K 

uOOOOO 

A 

PUTS* 

0 


/IlvlT'ED AS PUT1. FILLED LATER BY JMS PUTS* 

00442 

K 

620400 

R 


JMP ♦ 

purcH 

/DONE, RETURN 

00443 

R 

000445 

R 

/ 

PUTIN 

PUT 1 


/START AT FIRST CHAR 

00444 

ft 

100441 

R 

PUl’U 

J MS 

POI'SW 

/LEAVE POINTER FOR FIRST AFTER SECOND 

00445 

R 

0605/1 

R 

PUT 1 

DAC* 

PUTP 

/FIRST CHARACTER ACTION, PLACE RIGHT JUSTIFIED 

0044b 

R 

100441 

K 


J MS 

PJTSw 

/LEAVING POINTER FOR SECOND 

00447 

R 

7 4b0 3 0 

A 

PUl’2 

CLLi. 

SwH A 

/PUT CHAR IN RIGHT PLACE 

00450 

R 

740020 

A 


RAR 



00451 

R 

2 bub 7 1 

R 


XUR* 

PUTP 

/PUT HALVES together 

00452 

R 

0605 7 1 

R 


DAC* 

PUTP 

/BOTH IN BUFFER 

00453 

R 

44057 1 

H 


1SZ 

PUTP 

/MOVE POINTER 

00454 

R 

600444 

R 


JMP 

PUTu 

/GO TELL PU'ISrt THAT PUT1 IS NEXT 





/ OUriNE TO 

RESET LINE 

AnD TAB COUNTRS 

00455 

K 

OOUUOO 

A 

KESETL 

0 



00456 

K 

7/7/77 

A 


LA* 

-1 

/SET FIRST CHAR OF LINE REMEMBERER 

0U457 

K 

040560 

R 


DAC 

FIRST 


00460 

H 

777770 

A 


LA* 

-10 

/SET TAB COUNTR 

00461 

R 

0 4050 4 

R 


DAC 

f AdC 


00462 

R 

200556 

R 


LAC 

LINLIM 

/SET UP MAX PER LINE COUNTER 

00463 

R 

040557 

K 


DAC 

rtAXC 


00 4b 4 

K 

1405o3 

K 


OZW 

dLANKC 

/RESET SPACE AND TAB COUNTER 

00465 

R 

02U455 

R 


JMP* 

RESETL 



/ 


LPU. 


.CLOSE FUNCTION 


.TITLE .CLOSE FUNCTION 


/ 

/ 

/.CLOSE 

/ 


00466 

R 

100524 

R 

LPCLUS 

JMS 

LPIUCK 

/Check I/O UNDERWAY. 

00467 

R 

140562 

R 


DZM 

COP 

/SAY A FF OCCURRED 

00470 

R 

44U502 

R 


ISZ 

LPCLSw 

/ 7 7 7 7 7 7 IN AC IF HAVEN’T BEEN 

004 /1 

« 

b0050 3 

K 


JMP 

LPCLDN 

/DONE . 

00472 

ft 

750030 

A 


C L A 1 1 AC 


/SPOOLER REQUIRES FF , CH AS CLOSE 

00473 

R 

060551 

R 


DAC* 

bPBUF 

/JUST GIVE FF TO DRIVER, HOWEVER 

00474 

K 

20Uo6o 

K 


LAC 

( 6414 

/THIS IS F F , C R IN PDP-11 

00475 

R 

060652 

K 

/ 

DAC* 

LPBUFD 

/FIRST DATA wORD POINTER 

/THIS MEANS ALWAYS A FF ON CLOSE!!' 

00476 

R 

1 U 05 3 1 

K 


JMS 

LPSET 

/SEND BUFFER TO PDP-11 

0 u 4 / 7 

R 

100455 

R 


JMS 

KESETL 

/RESET THE WORLD 

00500 

R 

703344 

A 

lpcala 

DBR 



00501 

R 

620640 

R 


JMP* 

LPCALP 

/HANG ON CAL. 

0 0502 

R 

77/777 

A 

LPCLS* 

/ 77 777 


/-I = .CLOSE NOT DONE. 

00503 

R 

7/7777 

A 

uPCLDN 

LAw -1 



00504 

R 

040602 

ft 


DAC 

oPCLSW 

/INITIALIZE .CLOSE INDICATOR 

00505 

R 

6001 34 

R 


JMP 

LPNEXX 

/EXIT. 


BEEN THRU CLOSE CODE. 


Figure 4-1 (Cont.) 
XVM LP11 DOS Handler 
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LPU . 


122 


, w A 1 T FUNCTION 




521 






-TITLE 

. WAIT FUNCTION 


522 





/ 





52 3 





/.WAIT 

OH . w AiTR 



524 





/ 





525 

00506 

R 

220540 

ft 

LPwAIT 

LAC* 

LPCALP 



526 

005 0 7 

ft 

500650 

ft 


AND 

(1000 



527 

00510 

ft 

741200 

A 


SNA 



/BIT 8 = 1 FUR . WA1TR 

528 

0051 1 

ft 

6 u 0 5 2 2 

ft 


JMP 

LPNAT1 


/.WAIT - GO HANG ON CAL. 

529 

00512 

K 

2 0 Go52 

ft 


LAC 

( /ooouo 


/LINK, ETC. 

530 

00513 

ft 

50054U 

ft 


AND 

LPCALP 



531 

00514 

ft 

040540 

ft 


OAC 

LPCALP 



532 

00515 

ft 

220541 

ft 


LAC* 

LPARGP 


/15-BIT BUSY ADDRESS. 

533 

0051b 

ft 

500667 

ft 


And 

(77777 



534 

00517 

ft 

24U5 40 

ft 


XQR 

LPCALP 



535 

U0520 

ft 

040540 

ft 


DAC 

LPCALP 



53b 

0U521 

ft 

440541 

ft 


IDX 

uPAKGP 



537 

00522 

ft 

100524 

ft 

LPwATl 

J MS 

LPIUCK 


/CHECK I/U UNDERwAy. 

538 

00523 

ft 

6001 34 

K 


JMP 

LPNEXT 


/OK - RETURN. 

539 





/ 





540 





/CHECK 

FOR I/O 

l» 'IDERWAY 



541 





/ 





542 





/LPUwU 

0 WHEN 

F'KEE, NOnO 

WHEN 

Busy 

543 





/ 





544 

00524 

ft 

UOUUO0 

A 

LPIUCK 

0 




545 

00525 

ft 

200544 

ft 


LAC 

lpond 


/Q = NO ACTIVITY. 

546 

00526 

ft 

7 4 1 20 0 

A 


SNA 



547 

00527 

ft 

620524 

ft 


JMP* 

LPIUCK 


/NO I/O UNDERWAY. 

548 

00530 

ft 

6 0 0 5 U 0 

ft 


JMP 

LPCALX 


/HANG ON CAL TIL NOT BUSY . 

549 





/ 





550 





/ strop 

AND OUTPUT TO PRINTER. 


551 





/ 





552 

00531 

ft 

OOUOOO 

A 

lpset 

0 




553 

00532 

ft 

200550 

ft 


LAC 

LPTCB 

/SEND 

fCB POINTER TO PDP-11 

554 

00533 

ft 

706001 

A 


SIUA 



/MAKE SURE ITS ABLE TO GET IT 

555 

00534 

ft 

600533 

ft 


JMP 

.-1 


/NOTE THAT THIS IS PROTECTED SINCE 

556 









/ THE LIUR WILL BE ISSUED DIRECTLY 

557 









/ AFTER THE S10A (FREE INSTRUCTION) 

558 

U 05 35 

ft 

706006 

A 


L 1 UR 



559 

00536 

ft 

040544 

ft 


OAC LPUNU 


✓ Sfcf 1/0 BUSY FLAG. 

560 

00537 

ft 

620531 

ft 


jmp* LPser 




Figure 4-1 (Cont.) 
XVM LP11 DOS Handler 
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.TITLE INITIALIZATION CODE AND TEMPORARIES 

/ 


00540 

R 

000000 

A 

LPCALP 

0 


/POINTER TO CAL ADDR 

00541 

R 

000000 

A 

LPARGP 

0 


/POINTER ARGUMENTS UF CAL 

00542 

R 

777706 

A 

PAGS1Z 

-FORMS 


/ASSEMBLED LINES PER PAGE 

00543 

R 

777706 

A 

PAGCNT 

-FORMS 


/COUNT THE LINES HERE 

00544 

R 

777772 

A 

LPUND 

-6 


/0 = FREE,+ = BUSif,- = EKRUK 





/ 



/COUNTS UP TO INITAL 0 BELOW 






, I F U N D 

NOFF 


00545 

R 

440543 

R 

FFSW 

ISZ 

PAGCNT 

/ACTION FOR FORMS CONTROL , NEMORK 

00546 

R 

440543 

R 

FFFF 

ISZ 

.ENUC 

PAGCNT 

/FFSW LOADED INTO HERE 

00547 

R 

200636 

R 

iWiT 

LAC 

CHOP 

/WRITE OVER JUMP TO HERE 

00550 

R 

040003 

R 

LPTCB 

DAC 

NEW 

/PREVENT RE-ENTRT 

00551 

R 

220645 

R 

LPBUF 

LAC* 

l.SCOM+4 /GT PRINTER LINE WIDTH 

00552 

R 

742020 

A 

LPBUFO 

RTR 



00553 

R 

740020 

A 

LPEV 

KAR 


/MOVE TO »6' POSITION 

00554 

R 

500670 

R 

TEMPI 

AND 

(6 

/STRIP GARBAGE, LITERAL 6 

00555 

R 

741200 

A 

BUFS1Z 

SNA 



00556 

R 

340670 

R 

L1NL1M 

TAD 

(6 

/TREAT 0 (UNDEFINED) AS 132 COLUMN ! 77 1 

00557 

R 

340624 

R 

MAXC 

TAD 

LBFTP 

/POINTER TO CONSTANTS 

00560 

R 

040624 

R 

FIRST 

DAC 

LBFTP 


005 61 

R 

220624 

R 

1CHAR 

LAC* 

LBFTP 

/LINE WIDTH 

00562 

R 

040556 

R 

COP 

DAC 

LINL1M 


00563 

K 

440624 

R 

BLANKC 

ISZ 

LBFTP 


00564 

R 

220624 

R 

TABC 

LAC* 

LBFTP 

/BUFFER SIZE 

00565 

R 

040555 

R 

MIX 

DAC 

BUFSIZ 






/ NOW 

SET UP 

POINTERS 

TO BUFFER AND TCB LUC'S 

00566 

R 

220657 

R 

LPAC 

LAC* 

( . SCUM+100 /POINTER TO TABLE OF POINTERS 

00567 

R 

740030 

A 

LPOUT 

I AC 


/OUR POINTER IN TABLE +1 

00570 

R 

040554 

R 

X12 

DAC 

TEMPI 


00571 

R 

220554 

R 

PUTP 

LAC* 

TEMPI 

/POINTER TO TCB 

00572 

R 

040550 

R 


DAC 

LPTCB 


00573 

R 

040554 

ft 


DAC 

TEMPI 

/POINTER TO FILL LOCATIONS 

00574 

R 

723002 

A 


AAC 

2 

/MAKE POINTER TO EVENT VARIABLE 

00575 

R 

040553 

R 


DAC 

LPEV 


00576 

R 

723002 

A 


AAC 

2 

/MAKE POINTER TO TCB POINTER 

00577 

R 

040564 

R 


DAC 

TABC 

/TO BUFFER ADDR 

00600 

R 

723U05 

A 


AAC 

5 

/MAKE POINTER TO FIRST DATA WORD 

00601 

R 

040552 

R 


DAC 

LPSUFD 






/ MAKE 

TCB 



00602 

H 

200671 

R 


LAC 

( APISLT*400+ AP ILVL 

00603 

R 

060554 

R 


DAC* 

TEMPI 


00604 

R 

440554 

R 


ISZ 

TEMPI 


00605 

R 

200672 

R 


LAC 

(DEVCOD 

/PIREX CODE FOR LP DRIEVER 

00606 

R 

060554 

R 


DAC* 

TEMPI 


00607 

R 

440554 

R 


ISZ 

TEMPI 

/ZERO THRU FIRST BUFFER LUC 


Figure 4-1 (Cont.) 
XVM LPll DOS Handler 
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617 

00610 

R 

160554 

R 



OZM* 

TEMPI 


618 

00611 

K 

44U544 

R 



ISZ 

LPUND 


619 

00612 

R 

600607 

R 



JMP 

.-3 


620 

00613 

R 

200554 

R 



LAC 

TEMPI 

/THIS POINTS TO BUFFER 

621 

00614 

R 

060564 

R 



OAC* 

TABC 

/TO LOCATION IN TCB THAT NEEDS 

622 

00615 

R 

040551 

R 



DAC 

LPBUF 

/AND A POINTER FOR US 

623 

00616 

R 

100455 

R 



JMS 

RESETL 

/RESET LINE ANQ TAB CUUNTRS 

624 

00617 

R 

O00056 

A 



CAL 

APISLT 

/ISSUE SETUP CAL TO ESTABLISH INTERRUPTS 

625 

00620 

R 

000016 

A 



16 



626 

00621 

R 

706141 

A 



LSSF 



627 

00622 

R 

OOOu 3 2 

R 



LP1NT 



628 

00623 

K 

600003 

K 



JMP 

NEW 

/rtHErt , DONE 

629 






/ 




630 







.DEC 



631 

00624 

R 

000623 

R 


LBFTP 

.-1 


/POINTER TO SIZE TABLE 

632 

00625 

R 

777660 

A 



-80 



633 

00626 

R 

000044 

A 



36 



634 

00627 

R 

777610 

A 



-120 



635 

00630 

R 

000064 

A 



52 



636 

00631 

R 

777574 

A 



-132 



637 

00632 

R 

000070 

A 



56 



638 



000000 

A 



.END 




00633 

R 

017777 

A 

*L 






00634 

R 

600011 

ft 

*L 






00635 

R 

600042 

R 

* L 






00636 

R 

740000 

A 

* L 






00637 

R 

OQOUOO 

A 

*L 






00640 

R 

700042 

A 

♦ L 






00641 

R 

177777 

A 

* L 






00642 

R 

177001 

A 

* L 






00643 

R 

600000 

A 

* L 






00644 

R 

00U137 

A 

*L 






00645 

R 

000104 

A 

*L 






00646 

R 

000002 

A 

* L 






00647 

R 

004000 

A 

* L 






00650 

R 

001000 

A 

* L 






00651 

R 

741000 

A 

* L 






00652 

R 

700000 

A 

*L 






00653 

R 

000400 

A 

*L 






00654 

R 

000177 

A 

* L 






00655 

R 

000135 

A 

*L 






00656 

R 

000012 

A 

♦ L 






00657 

K 

000200 

A 

* L 






00660 

R 

000011 

A 

*L 






00661 

R 

000015 

A 

*L 






00662 

R 

O0UO2O 

A 

* L 






00663 

R 

000014 

A 

*L 






00664 

R 

000021 

A 

*L 






00665 

R 

000377 

A 

*L 






00666 

R 

006414 

A 

*L 






00667 

R 

077777 

A 

* L 






00670 

R 

OUOoOb 

A 

*L 
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LPU. 122 INITIALIZATION CODE AND TEMPORARIES 


00671 R 027002 

00672 R UO0UO4 
SIZE=00673 


A *L 
A * L 

NO ERROR LINES 


Figure 4-1 (Cont.) 
XVM LPll DOS Handler 
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PAGE 

20 LPU , 

. CROSS REFERENCE 






APILVL 

000002 

4b* 

51 

55 

611 





APISLT 

0000&6 

49* 

oil 

624 






BLANKC 

00563 

277 

292 

294 

309 

310 

333 

334 

496 



590* 








BUFSIZ 

00555 

174 

584* 

592 






CAPI 

706144 

55* 

128 







COP 

00562 

189 

275 

349 

448 

463 

505 

589* 


DEVCOO 

000004 

7 2* 

75* 

614 






ERLOOP 

00074 

158* 

161 







ERQUT 

00076 

160* 








ERRNUM 

00102 

157 

159 

164* 






EXERRS 

000137 

63* 

160 







FFFF 

00546 

181 

182 

572* 

576* 





FFSW 

00545 

185 

459 

571* 

575* 





FIRST 

00560 

268 

443 

468 

491 

587* 




FORMS 

000072 

6o* 

69* 

565 

566 





GETCH 

00332 

251 

373* 

391 






GETCM 

00345 

386 

390* 







GETIN 

00347 

237 

39 3* 







GETQ 

00350 

397* 

421 







GETSrt 

00344 

238 

376 

388* 

397 

407 

409 

411 

415 



417 

419 







GET1 

00351 

393 

399* 







GET2 

00362 

408* 








GET 3 

00364 

410* 








GET4 

00374 

418* 








GETS 

00376 

420* 








IDX 

440000 

61* 

81 

90 

98 

173 

176 

212 

536 

I N IT 

00547 

85 

d78* 







IOPS12 

00030 

10 9* 

172 







IQPS67 

00026 

107* 

218 







LBFTP 

00624 

586 

587 

588 

590 

591 

631* 



LINLIM 

00556 

494 

585* 

589 






LIOR 

706006 

53* 

151 

558 






LPAC 

00566 

115 

12 3 

134 

596* 





LPARGP 

00541 

80 

81 

89 

90 

98 

173 

175 

17b 



201 

211 

212 

231 

234 

5 32 

536 

564* 

LPA. 

00000 

77 

79* 







LPBUF 

00551 

191 

244 

350 

35b 

445 

509 

580* 

622 

LPBUFD 

00552 

193 

235 

247 

451 

511 

561* 

607 


LPCALP 

00540 

79 

179 

207 

516 

52 5 

530 

531 

534 



535 

5b3* 







LPCALX 

00500 

515* 

548 







UPCLDN 

00503 

507 

518* 







bPCLOS 

0046b 

100 

504* 







LPCbSW 

00502 

50b 

517* 

519 






LPEKOb 

00024 

97 

102 

105* 






LPEV 

00553 

129 

582* 

603 






LPICM 

00046 

121 

127* 







LPIERR 

00061 

132 

140* 







OPIN 

00103 

95 

169* 







LPINT 

0U032 

114* 

116 

119 

627 





LPIOCK 

00524 

188 

206 

504 

537 

544* 

5 4/ 




Figure 4-1 (Cont. ) 
XVM LP11 DOS Handler 
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L.PIRT 

00054 

133* 








LPIRT1 

00055 

134* 

152 







LPISN 

00056 

127 

135* 







LPNEXT 

00134 

99 

101 

200* 

355 

360 

520 

538 


lpout 

00567 

117 

125 

137 

597* 





LPPIC 

00042 

114 

116 

123* 






LPSET 

00531 

195 

359 

513 

552* 

560 




LPTCB 

00550 

148 

553 

579* 

600 





LPUND 

00544 

133 

545 

559 

567* 

618 




LPWAIT 

00506 

104 

525* 







LPWAT1 

00522 

528 

537* 







LPWRIT 

00136 

103 

206* 







LSSF 

706141 

51* 

626 







LTABl 

00012 

92 

95* 







MAIN 

00200 

251* 

253 

255 

302 

325 

343 



MAINC 

00235 

284 

'294* 







MAIND 

00233 

288 

292* 







MAINE 

00244 

298 

301* 







MA1NK 

00240 

297* 

311 







MAXC 

00557 

301 

337 

338 

495 

586* 




MCR 

00275 

318 

329* 







MIX 

00565 

210 

592* 

226 

242 

346 

354 

374 

455 

466 

MSPEC 

00247 

259 

307* 







MSPEC2 

00254 

308 

312* 







MSPEC3 

00270 

320 

324* 

331 






MSPEC4 

00272 

322 

326* 







MSPEC5 

00267 

323* 

326 







MTAB 

00300 

314 

332* 







NEW 

00003 

85* 

579 

628 






PAGCNT 

00543 

178 

462 

566* 

571 

572 




PAGSIZ 

00542 

177 

461 

565* 






PUTCH 

00400 

272 

290 

293 

29b 

324 

327 

347 

437 : 



453 

456 

470 

472 





PUTFF 

00427 

442 

4b 1 ♦ 







PUTIN 

00443 

2 39 

474* 







PUTLF 

0041 2 

440 

448* 







PUTLFR 

00434 

460 

466* 







PUTP 

00571 

236 

477 

482 

483 

484 

599* 



PUTQ 

00444 

47b* 

485 







PUTSW 

00441 

240 

446 

471* 

476 

478 




PUTW 

00424 

450 

458* 







PUTY 

00406 

443* 

457 

467 






PUTZ 

00410 

445* 

465 

469 






PUT1 

00445 

474 

477* 







PUT2 

00447 

460* 








RESETL 

00455 

187 

329 

348 

401 

489* 

497 

514 

623 

RETRI 

00066 

142 

148* 







SC. MOD 

000104 

58* 

169 







sc.uci 

000002 

59* 

170 







SET 

440000 

62* 








SETERR 

00073 

106 

108 

110 

144 

157* 




SIOA 

706001 

52* 

149 

554 







Figure 4-1 (Cont.) 
XVM LP11 DOS Handler 
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PAGE 

22 LPU, 

, CROSS REFERENCE 

X ABC 

00564 

297 

300 332 



621 


TCHAR 

00561 

213 

224 256 

TEMPI 

00554 

233 

381 399 



613 

t>15 616 

UCLP03 

00314 

261 

303 316 

UCLP04 

00320 

349* 

383 402 

UCLP05 

00330 

353 

359* 

XI 2 

00570 

215 

364 365 

%D0S 

000001 



%RELES 

000001 



% VERSN 

000001 



%XVM 

000001 



•CLEAR 

MACRO 



•CLOSE 

MACRO 

499 


•DLETE 

MACRO 



•ENTER 

MACRO 



• EXIT 

MACRO 



• FSTAT 

MACRO 



• GET 

MACRO 



•GTBUF 

MACRO 



. GVBUF 

MACRO 



. INIT 

MACRO 

165 


• MED 

000003 

60* 


• MTAPE 

MACRO 



, UVRLA 

MACRO 



• PUT 

MACRO 



• RAND 

MACRO 



• READ 

MACRO 



•KENAM 

MACRO 



•RTRAN 

MACRO 



• SCOM 

000100 

57* 

56 63 

• SEEK 

MACRO 



•STSID 

MACRO 

1 


•TIMER 

MACRO 



• TRAN 

MACRO 



• USER 

MACRO 



.WAIT 

MACRO 

521 


, WAITR 

MACRO 



•WRITE 

MACRO 

202 



335 

342 

493 

591* 

605 

295 

583* 

617 

340 

312 

596 

620 

345* 

588* 

599 

601 

612 

403 

404 

412 

413 

598* 


580 596 


Figure 4-1 (Cont. ) 
XVM LP11 DOS Handler 
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APILVL The API level at which PIREX should interrupt the XVM? this 

is used in TCBs and in the definition of CAPI. APILVL should 

indicate API level 0, 1 , 2, or 3.1 

APISLT The API slot to which PIREX should issue interrupts? used in 
TCBs and in the CONNECT/DISCONNECT software directives. 

DEVICE In this case LSSF, one of the four possible UC15 skips. This 

SKIP skip is determined by which API level is chosen. 

SKIP = APILVL*20 + 706101 

The skip is used in the standard setup interrupts CAL (Figure 
4-1, lines 624-628) . 

SIOA Skip if PDP-11 can accept a TCBP mnemonic; (706001). 

LIOR Issue TCBP mnemonic; (706006) . 

CAPI Clear interrupt flag mnemonic? set to APILVL*20 + 706104, 

used in interrupt service routine. 

DEVCOD The device code as defined in PIREX: used in TCBs. 


NOTE 


The conditional use of the spooled bit 
(PDP-11 bit 7) (Figure 4-1, lines 71-76). 

4. 6. 1.1 Initialization - The CAL entry of an XVM/DOS handler must 
have a once only section of code that: 


1. Sets up a pointer to one of the reserved TCB areas in the 
XVM/DOS monitor. This is done by locating a pointer to the 
TCB area in the table pointed to by .SCOM+100 (Figure 4-1, 
lines 596-600) . 

2. Computes pointers to the various locations within this TCB 
area, such as the event variable (Figure 4-1, lines 601-607) . 

3. Constructs the constant fields within the TCB such as the 
API RETURN and device code (Figure 4-1, lines 611-619) . 

4. Sets up a pointer to the data area in the TCB, which will be 
used as a buffer (Figure 4-1, lines 620-622) . 


4. 6. 1.2 • INIT Function - The . INIT function of any XVM UNICHANNEL 

handler should check to see if the UNICHANNEL is enabled by testing 
bit 16 of . SCOM+4 . If bit 16 is set, the UNICHANNEL is enabled, or 
else if bit 16 is not set, IOPS 12 (device error) should be issued. 
(Figure 4-1, lines 169-172.) 


^Level 0 may be used, but is not recommended because it could hang the 
XVM system if the interrupt occurred at the wrong time. 
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4.6.1 .3 Request Transmission - When issuing requests to a task from a 
XVM program, the requesting program (e.g., a XVM I/O handler) issues 
the following sequence of instructions. 


DZM EV 
LAC (TCB) 
SIOA 
JMP .-1 


/CLEAR EV IN TCB 
/ADDRESS OF TCB IN AC 

/MAKE SURE PDP-11 CAN ACCEPT REQUEST 
/WAIT FOR IT IF NOT 


LIOR /ISSUE REQUEST TO THE PDP-11. THIS CAUSES A 

LEVEL/7 INTERRUPT TO THE PDP-11 AND CONTROL 
TRANSFERRED/TO THE LEVEL 7 HANDLER IN PIREX. 


The instruction sequence which issues requests to tasks from the XVM 
should have an identical format as shown above. These five instructions 
are ordered in a way which: 

1. Clears the event variable (EV) before issuing the request. 

2. Allows an interruptible sequence while waiting for the PDP-11. 

3 . Allows a non-interruptible sequence once the SIOA instruction 
skips and the LIOR is issued. 

This occurs because the XVM always allows a non-interruptible instruc- 
tion following an IOT (in this case the SIOA) . The SIOA and JMP .-1 
sequence is interruptible immediately following the execution of 
JMP .-1. 

The LPSET routine is used by the line printer handler to perform the 
request transmission and thus send data to the line printer (or line 
printer spooler) task (see Figure 4-1, lines 551-560). 

4. 6. 1.4 Interrupt Section - Result Reception - After receipt of a 
request to PIREX, the PDP-11 will use the contents of the TCB to 
schedule the referenced task. 

Meanwhile, the requesting program can either: 

1. Give up control and wait for an interrupt from the PDP-11 as 
in the XVM/DOS line printer handler case or 
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2. Test the EV until it goes non-zero. i.e., 

LAC EV 
SNA 

JMP .-2 

to determine completion of the request. The EV is automati- 
cally set to a non-zero value by the referenced task when the 
request has been completed. 1 

Interrupts generated by the PDP-11 for the XVM are serviced by the 
XVM in a fashion identical to regular XVM interrupts. As in a non- 
API environment, a SAPI N (N = 0, 1, 2, or 3 depending on what API 
level would have been used if the XVM had API) instruction tests for 
the flag associated with the request. In an API environment, the 
appropriate API trap address must be set up before the interrupt occurs. 
When program control is transferred to the interrupt service routine, 
a CAPI N instruction must be issued to clear the hardware flag assoc- 
iated with the request. 

After clearing this flag, the event variable should be tested to detect 
an error condition (negative event variable). See Figure 4-1, lines 
129-132. 

If an error has occurred, the event variable should be tested for a 
possible PIREX out-of-node condition (PIREX ran out of space to store 
the request) . If the error was an out-of-node error (EV = 177001) a 
retry of the request should be attempted (see Figure 4-1, lines 148-152) . 

If the error was not an out-of-node error, an error message should be 
sent to the user. The error code should be composed of the event vari- 
able and a handler mnemonic such as LPU (Figure 4-1, lines 155-164) . 


^When interrupt returns are used, the EV is set to non-zero just 
prior to the issuing of the interrupt. 
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4.6.1 .5 .READ and .WRITE Requests - Actual input and output is accom- 
plished by using typical XVM/DOS handler code with the following excep- 
tions: 

1. The TCB is used as the data buffer* 

2. The actual I/O is done by calls to the TCB transmission 
routine. In the example this is a call to LPSET 
(Figure 4-1, line 359) 

4. 6. 1.6 .CLOSE Function - If PIREX provides spooling services for the 
device, there is a need to inform the device's spooler module that the 
current job has completed so that the spooler is forced to process any 
existing partially-filled buffers. The writer must insure that both 
the XVM/DOS handler and the PIREX spooler module agree upon a conven- 
tion to indicate this end-of-file. In the example, a form feed carriage 
return (6414) acts as an end-of-file (Figure 4-1, lines 499-513). 

4.6.2 PDP-11 Requesting Task 

Tasks such as MACH may execute under control of the PIREX executive in 
a background mode. Considerations such as TCB structure and event var- 
iable checking are similar to those of the XVM/DOS handler. 

When the requesting program is a PDP-11 task, it must issue the initi- 
ate request macro (IREQ) in lieu of the 5 instruction sequence shown 
for the XVM. (See section 4.6.2.) If the task being requested has 
a higher priority than the current one issuing the request, it will 
execute immediately; otherwise, control will return to the first instruc- 
tion following the IREQ macro. IREQ is defined as follows: 

.MACRO IREQ TCBP 
MOV TCBP,R5 
MOV #100000, R4 
IOT 

. BYTE 2 , 0 
. ENDM 


The #100000 in R4 is used by PIREX to identify a PDP-11 request. 


^Depending on Driver task design the TCB need not be used as a data 
buffer for NPR devices. 
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A TCBP is a TCB pointer. If the requesting task desires a software 
interrupt it should place the interrupt return address in the proper 
entry of the "SEND 11" Table (see Section 3.3.8). 

4.6.3 UNICHANNEL Device Handlers for XVM/RSX 

The following description of how to write a UNICHANNEL device handler 
for XVM/RSX does not discuss those topics pertaining to all XVM/RSX 
I/O handlers, see the chapter on Advanced Task Construction in the 
XVM/ RSX System Manual. 

4. 6. 3.1 Definition of Constants - Several constants are defined in a 
UNICHANNEL handler's source file before any executable code (see 
Figure 4-2, lines 67-80). These constants include: 

APISLT The API slot to which PIREX issues interrupts? this is 
used in TCBs and the CONNECT/DISCONNECT software 
directives . 

APILVL The API level at which PIREX interrupts the XVM? this 
is used in the TCB and in definition of CAPI. 

APILVL should indicate API level 1, 2, or 3. 

DEVICE UNICHANNEL device skip equated to APILVL* 20+706101 . 

SKIP 

SIOA Mnemonic for "skip of PDP-11 can accept a TCBP"? 

706001. 

LIOR Mnemonic for "Issue TCBP"? 706006. 

CAPI Clear interrupt flag mnemonic? set this to APILVL 

*20+706104. It is used in the interrupt service 
routine. 

DEVCOD The device code as defined in PIREX? this is used in 
TCBs. 

4. 6. 3. 2 Initialization - The handler initialization is located imme- 
diately following these definitions (see Figure 4-2, lines 263-321) . 
During handler initialization, the PIREX device driver status must be 
cleared and the event variable checked to see if the driver is function- 
ing (see Figure 4-2, lines 288-305) . Since it is not obvious to XVM/ 

RSX whether or not the driver is operational, a message should be 
printed before the handler exits if the driver is not running under 
PIREX. 
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CD. 


021 


CD. , 


CR15/UC 1 5 CARD HEADER EDIT #020 


26 

/ 




29 

/EDIT 

1021 

4/22/75 SCR UC1 5 EOF CARD FIX 

30 

/EDIT 

#020 

2/2/74 SCR CLEANUP 

31 

/EDIT 

#019 

SCR 

CR15 ERROR HANDLING; RRN SWITCH! 

32 

/EDIT 

#018 

SCR 

FIX CDON HANDLING CR15 VERSION 

33 

/EDIT 

#017 

SCR 

CLEANUP, ! BOTH! DEVICES 

34 

/EDIT 

#016 

SCR 

MORE UC 15 CODE 

35 

/EDIT 

#015 

SCR 

START TO PUT IN UC15 CODE 

36 

/EDIT 

#013 

1-18 

-72 

37 

/EDIT 

#14 

6-26 

-73 

38 

/COPYRIGHT 

1973, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS. 

39 

/C.W. 

KEMP 

---- W , A . 

DESIMONE. G. M. COLE 

40 

/ 





41 

42 

43 

44 

45 

46 

47 
49 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


000055 

000001 

706121 

706001 

706006 

706124 


/CR1 5 CARD READER CONTROL HANDLER TASK. 
/SUPPORT SURBAN AND UUCUMATIQN READERS. 


THIS CONTROL WILL 


CR1 5 CODE IS OBTAINED WITH NO ASSEMBLY PPARAMETERS 

TO OBTAIN UC15 CODE DEFINE UC15=0. 

ADDITIONAL UC15 PARAMETERS! 

DEFINE NOSPLsO TO DISABLE SPOOLING FOR CARD READER. FOR INSTANCE 
IF SPOOLER PACKAGE DOESN'T HAVE CARD READER ASSEMBLED IN FOR SPACE REASONS. 
AN EQUATE FUR APILVL IS NECESSARY TO SET UP 
lOT'S FOR CORRECT PRIORITY LEVEL TO CLEAR PIREX REQUEST . 

PRESENTLY LEVEL 1 IS THE CARD READER ASSIGNMENT. 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

APISLT=55 

APILVL=1 

CKSI=APILVL*20+7061Q1 

SIOA=7Q6001 

HOR=70600b 

CAPI=APILVL*20+706104 

/ 

.IFUND NOSPL 

DEVCUD=5 

.ENDC 

. IFDEF NOSPL 
DEVCQ0=205 

.ENDC 


N 


1 1 


IN ORDER FOR THE UC 1 5 HANOLER TO FUNCTION PROPERLY, THE 
PDP11 MUST BE ABLE TO ACCESS OUR INTERNAL BUFFER 
AND TCB'S. THIS MEANS THAI THEIR ADDRESS MUST BE LESS THAN 
28K TO THE PDP11. THUS, IF THE PDP-11 LOCAL MEMORY IS 8K, 
THIS HANDLER MUST RESIDE BELOw 20K IN PDP1S CORE! I THIS 
IS EQUIVALENT TO 50000 OCTAL. SIMILARLY , IF THE LOCAL 
PDP-11 MEMORY IS 12K, THE HANDLER MUST RESIDE BELOW 
40000 OCTAL, 

•IFDEF UC15 


Figure 4-2 

XVM CRll XVM/RSX Handler 
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PAGE 


CD, 


021 


CD,.,. CR15/UC15 CARD READER EDIT #020 


80 

01 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 


FOR ALL ERROR MESSAGES, l'HE IS SET TO 3 IF USED INTERACTIVELY 

MOST OF THE TIME OR TU 100 WHEN USED WITH PHASE 

III BATCH. LUN 100 IS DEFINED TO BE THE BATCH OPERATOR DEVICE. 


• ENDC 

/ 

/EDIT 14 ADDS ASSEMBLY PARAMETER EKKLUN TO SPECIFY LOGICAL UNIT 
/ 

/ 

/ 

/ 

• IFUND ERRLUN 
ERRLUN=100 

.ENDC 

/THIS IS AN IOPS ASCII UNLY HANDLER TASK. 

/IT CAN BE ASSEMBLED TO READ 029 OR 026 IBM KEYPUNCHED CARDS. 
/DEFINE DEC026 TO READ 026 PUNCHED CAROS. 

/DEC026 UNDEFINED TO READ 029 PUNCHED CARDS. 

/ 

/ 

/ 

/ THE FOLLOWING QUEUE I/O DIRECTIVES ARE IMPLEMENTED 
/ 

/ 

/ 

/ 

/ 

/ 

/ 


CPB 


3600 

EVA 

LUN 


HANDLER INFORMATION (HINF) 


FOR HINF THE FOLLOWING INFORMATION IS RETURNED IN THE EV 


105 

/ 


BIT 

0 

106 

/ 


BIT 

1 = 1 

107 

/ 


BIT 

2 = 0 

108 

/ 


BIT 

3 = 0 

109 

/ 


BITS 

4-11 

110 

/ 


BITS 

12-17 

111 

/ 




112 

/ 




113 

/ 


CPB 

2400 

114 

/ 



EVA 

115 

/ 



LUN 

116 

/ 




117 

/ 


CPB 

2500 

118 

/ 



EVA 

119 

/ 



LUN 

120 

/ 




121 

/ 


CPB 

2600 

122 

/ 

(1) 


EVA 

123 

/ 

1 2 ) 

LUN 


124 

/ 

(3) 


MODE 

125 

/ 

(4) 


BUFF 

126 

/ 

(5) 


SIZE 

127 

/ 




128 

/IF 

A REQUEST CANNOT 

129 

/VALUES 

ARE 

RETURNED: 

130 

/ 




131 

/ 


-101 

— INDI( 


UNUSED 

INPUT DEVICE 
NOT OUTPUT DEVICE 
NOT FILE-ORIENTEO 
UNIT NUMBER 'ZERO' 

DEVICE CODE = 7 CARD READER 


ATTACH CARD READER 


DETACH CARD READER 


PAGE 4 CD.... 021 CD,,., CR15/UC15 CARD READER EDIT #020 


132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 


/ -102 — INDICATED LUN IS NOT ASSIGNED TO PHYSICAL DEVICE. 

/ -103 -- HANDLER TASK IS NOT CORE RESIDENT. 

/ -777 -- NODE FOR REQUEST QUEUE NOT AVAILABLE, 

/ 

/ 

/IF THE QUEUED I/O REQUEST CANNOT BE SUCCESSFULLY DEQUEUED, 

/THE FOLLOWING EVENT VARIABLE VALUES ARE RETURNED: 

/ 

/ -7 -- ILLEGAL DATA MODE. 

/ -6 — UNIMPLEMENfED FUNCTION. 

/ -24 — LUN REASSIGNED WHILE ATT ACH/DETACH REQUEST IN QUEUE. 

/ -30 -- OUT OF PARTITION TRANSFER (NORMAL MODE). 

/ -203 — CAL NOT TASK ISSUED. 

/ 

/ 

.EJECT 
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146 




/ 


149 




/ ***** CONSTANTS ***** 

150 




/ 


151 



000012 A 

X 1 2 = 1 2 

/AUTO-INDEXREG. 12 

152 



000013 A 

XI 3 = 1 3 

/AUTO- INDEX REG, 13 

153 



000101 A 

R1 =101 

/RE-ENTRANT REG. 1 

154 



000102 A 

R2=1Q2 

/RE-ENTRANT REG. 2 

155 



000103 A 

R3*l 03 

/RE-ENTRANT REG. 3 

156 



000104 A 

R4=l 04 

/KE-ENTRANT REG. 4 

157 



000107 A 

NADD=107 

/NODE ADDITION ROUTINE ENTRY POINT 

156 



000123 A 

SN AM= 1 2 3 

/NAME SCAN ROUTINE ENTRY 1 POINT 

159 



000240 A 

POOL=240 

/LISTHEAO FUR POOL OF EMPTY NODES 

160 



000252 A 

PDVL=252 

/LISTHEAD FOR PHYSICAL DEVICE LIST 

161 



000325 A 

ALAD=325 

/ATTACH LUN & DEVICE ENTRY POINT 

162 



000332 A 

DLAD=332 

/DETACH LUN 6 . DEVICE ENTRY POINT 

163 



000337. A 

DQRQ= 3 3 7 

/DE-QUEUE REQUEST ENTRY POINT 

164 



000342 A 

VA JX=342 

/VERIFY AND ADJUST I/O PAKAMS, 

165 



000345 A 

10CD=345 

/DECREMENT TRANSFERS PENOING COUNT. 

166 



000361 A 

DMTQ = 3 6 1 

/DE-QUEUE I/O REQUEST (FOR ABORTING), 

167 



000010 A 

D.TG=10 

/POSITION OF TRIGEH EVENT VARIABLE IN PDVL NODE 

166 




/ 


169 




, IFUND 

UC15 

170 




/ 


171 




CWC=22 

/WC DCH ADDRESS. 

172 




CCA=23 

/CA DCH ADDRESS. 

173 




/ 


174 




/PSUEDO-INSTR. 

FOR WF.SN SUBR. 

175 




/ 


176 




WF0FF=SNA 

/WA1TFOR CR 1 5 NUT HEADY. 

177 




WF0N=SZA 

/NAITFOR CR15 READY. 

178 




/ 


179 




/ 


160 




/CONDITIONS FOR 

LOAD READER CONDITION IUT (CRLC), 

161 




/ 


182 




CC1 =20 

/CLEAR STATUS .DISABLE INTERRUPT AND DATA CHANNEL. 

183 




CC2=27 

/CLEAR STATUS, START READ, ENABLE INTERRUPT AND DATA CHANNEL. 

184 




CC3=26 

/CLEAR STATUS, ENABLE INTERRUPT , ENABLE DATA CHANNEL. 

185 




CC4=04 

/ENABLE 1NTERRS. DISABLES DCH 

186 




/ 


187 




/ ***** I QT INSTRUCTIONS ***** 

188 




/ 


109 




CRPC=706724 

/CLEAR STATUS EXCEPT CARD DONE. (ALSO DISABLES INTERR 

190 




CRLC=706704 

/LOAD READER CONDITIONS. 

191 




CRRS=706732 

/READ STATUS INTO AC. 

192 




/ 


193 




• ENDC 


194 




/ 


195 



705522 A 

• INH = 705522 

/INHIBIT INTERRUPTS. 

196 



705521 A 

,ENB=705521 

/ENABLE INTERRUPTS. 

197 




/ 


190 




.EJECT 



Figure 4-2 (Cont.) 

XVM CR11 XVM/RSX Handler 


4-30 



Task Development 


PAGE 


CD. 


021 


CD..,. CR1 5/UC 15 CARD READER EDIT #020 


199 

200 
201 
202 


/— --CR15 STATUS AND AC BIT ASSIGNMENTS. 
/ 

/STATUS REGISTER BIT ASSIGNMENTS: 

/ 


203 

/ 

BIT 

TRANSLATION 

204 

/ 



205 

/ 

17 

COLUMN READY 

206 

/ 

16 

END OF CARD 

207 

/ 

15 

DATA CHANNEL OVERFLOW 

208 

/ 

14 

DATA CHANNEL ENABLED 

209 

/ 

13 

READY TO READ 

210 

/ 

12 

ON LINE 

211 

/ 

n 

END OF FILE 

212 

/ 

10 

BUSY 

213 

/ 

09 

TROUBLE C= IOR OF BITS - 

214 

/ 

08 

DATA MISSED 

215 

/ 

07 

HOOPER EMPTY/STACKER FUI 

216 

/ 

06 

PICK ERROR 

217 

/ 

05 

MOTION ERROR 

218 

/ 

04 

PHOTO ERROR 

219 

/ 

03-00 

UNUSED 

220 

/ 



221 

/AC 

BIT ASSIGNMENTS FUR LOAD CONDITION 1 

222 

/ 



223 

/ 

BIT 

FUNCTION 

224 

/ 



225 

/ 

17 

START READ 

226 

/ 

16 

DATA CHANNEL ENABLE 

227 

/ 

15 

INTERRUPT ENABLE 

228 

/ 

14 

OFFSET CARD 

229 

/ 

13 

CLEAR STATUS REGISTER 

230 

/ 



231 

/ 

STATUS 

REGISTER BITS CONNECTED : 

232 

/ 



233 

/ 

17 

DATA READYCONLY IF DATA 

234 

/ 

16 

CARD DONE 

235 

/ 

15 

DATA CHANNEL OVERFLOW 

236 

/ 

09 

ERROR CONDITION 

237 

/ 



238 

/MACRO DEFINITIONS: 

239 

/ 



240 

/CP 

MACRO FOR i 

CARD CULUMN TO ASCII THAN! 

241 

/ 



242 


• IFDEF 

DEC026 

243 


.DEFIN 

CP,C26,C29 

244 


C26\777 7 + 1 

245 


.ENUM 


246 


.ENDC 


247 


, IFUND 

DECU26 

248 


.DEFIN 

CP,C26,C29 

249 


C29N7777+1 

250 


. ENDM 



4-8) 


PAGE 7 CD.... 021 CD.,,, CR15/UC15 CARD READEH EDIT #020 


251 

252 

253 

254 


■ ENDC 
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021 

CD, 

.... CH15/UC15 CARD READER EDIT 1020 

255 






/ 




256 






/ 




257 






/ ***♦♦ 

HANDLER 

INITIALIZATION ***** (ONCE UNLY CODE) 

258 






/ 




259 






/START 



/STORAGE FUR AC IN INIERR . SERVICE 

260 






/ 1 BUF 



/TOP OF INTERNAL BUFFER. 

261 






/ 




262 






/ 




263 


00000 

R 

200646 

R 

START 

LAC 

(PDVL) 

/SCAN PDVL FOR THIS DEVICE'S NODE 

264 


00001 

R 

060647 

R 

lbUF 

DAC* 

(Rl) 


265 


00002 

R 

200650 

R 


LAC 

(HNAM) 


266 


00003 

R 

060651 

R 


DAC* 

(R2) 


267 


00004 

R 

120652 

R 


JMS* 

(SNAM) 

/R, R2, R6, XR, & AC ARE ALTERED 

268 









/NODE FOUND? 

269 


00005 

R 

000653 

R 


CAL 

(10) 

/NO -- EXIT 

270 


00006 

R 

040567 

R 


DAC 

PDVNA 

/YES -- PDVL NODE ADDRESS IN AC. 

271 


00007 

R 

723010 

A 


AAC 

D.TG 

/SAVE NUDE ADDRESS AND 

272 


00010 

R 

040570 

R 


DAC 

PDVTA 

/ TRIGGER EVENT VARIABLE ADDRESS 

273 


00011 

R 

000577 

R 


CAL 

CCPB 

/CONNECT INTERRUPT LINE 

274 


00012 

R 

200561 

R 


LAC 

EV 

/CONNECT OK? 

275 


00013 

R 

741100 

A 


SPA 



276 


00014 

R 

000653 

R 


CAL 

(10) 

/NO — EXIT 

277 


00015 

R 

200654 

R 


LAC 

l TG) 

/YES — SET TEV ADDRESS 

278 


00016 

R 

060570 

R 


DAC* 

PDVTA 


279 


00017 

R 

500655 

R 


AND 

(70000) 

/DETERMINE 'XR-ADJ' 

280 


00020 

R 

740031 

A 


TCA 



281 


00021 

R 

040563 

R 


DAC 

XADJ 


282 






/ 




283 







.IFUND 

UC15 


284 







LAC 

(CC1) 

/CLEAR STATUS, DISABLE INTER, AND 1 

285 







CRLC 


/LOAD FUNCTION. 

286 







• ENDC 



287 







. 1FDEF 

UC 1 5 


288 


00022 

R 

100625 

R 


JMS 

CLEAR 

/CLEAR JUT PIREX DEVICE, «AIT FDR COMPLETE 

289 


00023 

R 

200613 

R 


LAC 

E V 1 IK 

/FIND JUT IF OK 

290 


00024 

R 

742010 

A 


RTL 


/PDP11 SIGN BIT TO OURS 

291 


00025 

R 

740100 

A 


SMA 


/SKIP IF IROUBLE 

292 


00026 

R 

600057 

R 


JMP 

WFTGR 

/txOT, 30 NA1T FOR NGRK 

293 


00027 

R 

000034 

R 


CAL 

MSI N IT 

/PRINT PIREX HAS NO CD MESSAGE 

294 


00030 

R 

000032 

R 


CAL 

*FMS 

/aAIT FUR MESSAGE COMPLETION 

295 


00031 

R 

00 0 b5 3 

R 


CAL 

(10 

/EXIT 

296 






/ 




297 


00032 

R 

000020 

A 

wFMS 

20 



298 


00033 

R 

000561 

R 


EV 



299 


00034 

R 

002700 

A 

MSI NIT 

2700 



300 


00035 

R 

000561 

R 


EV 



301 


00036 

R 

000100 

A 


ERRLUN 



302 


00037 

R 

000002 

A 


2 



303 


00040 

R 

000041 

R 


INITMS 



304 


00041 

R 

004002 

A 

1NITMS 

004002; 

OOOOOO; 

.ASCII "*♦* NO CD IN PIREX h <15> 



00042 

R 

oooooo 

A 







00043 

R 

251245 

A 
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00044 

R 

220234 

A 





00045 

R 

475010 

A 





00046 

R 

342100 

A 





00047 

R 

446344 

A 





00050 

R 

050222 

A 





00051 

R 

512133 

A 





00052 

R 

006400 

A 




305 






• ENDC 


306 

00053 

R 

600057 

R 


JMP 

WFTGR /WAIT FOR TRIGGER 

307 





/ 



308 

00054 

R 

030400 

A 

Hn AM , SI XBT 

1 CDGf*9@ ' /HANDLER TASK NAME 


00055 

R 

000000 

A 




309 





/ 



310 






, IFUND 

UC15 

311 





/ 



312 






.BLOCK 

121+START-. 

313 





/ 



314 






.ENDC 


315 





/ 



316 






• IFDEF 

UC1 5 

317 





/ 



318 

00056 

R 

777775 

A 


.BLOCK 

53+START-. 

319 





/ 



320 






.ENDC 


321 





/ 

***** END of 

INITIALIZATION CODE ***** 

322 





/ 



323 





/******** THE i 

ABOVE CODE IS QVERLATED B* THE INTERNAL BUFFER ****** 

324 





/*************************** ******^************ ********** ********** 

325 





/ 



326 





/ 

UC15 INTERRUPT-CAL INTERACTION WILL BE DIFFERENT 

327 





/ 

KEEP INITIAL PART SEPARATE 

328 





/ 



329 






.IFUND 

UC 15 

330 





/ 



331 





WFTGR CAL 

WFTCPB /WAIT FOR TEV TO BE SET 

332 





/ 



333 





/ 

***** THE TASK HAS BEEN TRIGGERED -- PICK A REQUEST FROM QUEUE 

334 





/ 



335 






DZM 

TG /CLEAR TRIGGER 

336 





PQ 

LAC 

PDVNA /DEQUE A REQUEST 

337 






DAC* 

CRD 

338 






JMS* 

(DQRQ) /Rl, R2 , R4, R5, R6, XR & AC ARE ALTERED 

339 







/WAS A REQUEST FOUND? 

340 






JMP 

WFTGR /NO -- WAIT FOR TRIGGER 

341 





/ 



342 






.ENDC 


343 





/ 



344 






.IFDEF 

UC1 5 

345 





/ 

UC15 CODE 


346 





/ 



347 





/ 

THE GENERAL IDEA IS THAT ALL WAITS ARE DONE THRU 

348 





/ 

THE TRIGGER 

, WE FIGURE OUT HERE WHO SET THE TRIGGER. THIS 
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CD. 

•• 

021 

CD, 

.... 

CR15/UC15 

CARD READER EDIT #020 

349 





/ 

ALLOTS US 

TO GET UUT 

OF HUNG DEVICE, SINCE WE WAIT HERE, 

350 





/ 

AND CAN SEE AN ABORT 

COMING THRU. 

351 





/ 




352 

00057 

R 

000575 

R 

WFTGR CAL 

WFTCPb 

/WAIT FOR EVENT VARIABLE TG 

353 

00060 

R 

200562 

R 

PQ 

LAC 

TG 

/FIND OUT WHO IS CALLING 

354 

00061 

R 

140562 

R 


DZM 

TG 

/RESET 

355 

00062 

R 

742010 

A 


RTL 


/ABORT BIT TO SIGN BIT 

356 

00063 

R 

751130 

A 


SPA1CLA 1 1 AC 

/SKIP IF NOT ABORT, 1 IN AC. 

357 

00064 

R 

600071 

R 


JMP 

PQ1 

/GO DO ABORT IN REGULAR WAY. THE HANGING 

358 





/ 



/READ IS REMEMBERED IN RRN 1 

359 

00065 

R 

540554 

R 


SAD 

CDON 

/HAS A CARD BEEN DECLARED DONE BY INTERRUPT 

360 

00066 

R 

600177 

R 


JMP 

GUTCRD 

/YEAH, GO TRANSLATE IT 

361 

00067 

R 

540407 

R 


SAD 

POST 

/ARE WE WAITING FOR INTERRUPT 

362 

00070 

R 

600057 

R 


JMP 

WFTGR 

/YES, AND IT HASN'T HAPPENED YET, SINCE 

363 





/ 



/CDUN NOT SET. WAIT ON THIS CAL REQ, TO BE 

364 





/ 



/DONE AFTER THE INTERRUPT HAPPENS. IF ABORT 

365 





/ 



/COMES IN THE MEANTIME, HE IS PUT AT HEAD 

366 





/ 



/OF DEQUE OF WAITING REG.'S SO WE DO HIM. 

367 





/ 




368 

00071 

R 

200567 

R 

PQ1 

LAC 

POVNA 

/TRY TO DEQUE AFTER OPERATION BEFORE WAITING 

369 

00072 

R 

060647 

R 


DAC* 

CR1 

/IN CASE WAITING FOR INTERRUPT HAS HELD OFF 

370 

00073 

R 

120656 

R 


JMS* 

(DQRU 

/A REQUEST, 

371 

00074 

R 

600057 

R 


JMP 

wFTGR 

/DIDN ' T FIND ONE, GO WAIT 

372 





/ 




373 






• ENDC 



374 





/ 




375 

00075 

R 

040564 

R 


DAC 

RN 

/YES — SAVE ADDRESS OF REQUEST NODE 

376 

00076 

R 

340563 

R 


TAD 

XADJ 

/SETUP XR TO ACCESS NODE 

377 

00077 

R 

721000 

A 


PAX 



378 





/ 




379 





/ ***** I/O REQUEST NUDE 

; FORMAT ***** 

380 





/ 




381 





/ 

(0) FORWARD LINK 


382 





/ 

(1) BACKWARD LINK 


303 





/ 

(2) STL 

PTR. 


384 





/ 

(3) PART 

. BLK PTR. 

(0 IF EXM TSK). 

385 





/ 

C 4 ) TASK 

PRIORITY 


386 





/ 

(5) I/O 

FCN CODE IN 

BITS 9-17 AND LUN IN BITS 0-8 

387 





/ 

(6) — 

EVENT VARIABLE ADDRESS 

388 





/ 

(7) CTB 

PTR. 


309 





/ 

(10) EXTRA 


390 





/ 

(11) EXTRA 


391 





/ 




392 

00100 

R 

210005 

A 


LAC 

5,X 

/FETCH I/O FCN CODE 

393 

00101 

R 

500657 

R 


AND 

(777) 


394 

00102 

R 

540660 

R 


SAD 

(024) 

/ATTACH REQUEST? 

395 

00103 

R 

600120 

R 


JMP 

ATTACH 

/YES -- ATTACH TO TASK 

396 

00104 

R 

540661 

R 


SAD 

(025) 

/NO -- DETACH REQUEST? 

397 

00105 

R 

600127 

R 


JMP 

DETACH 

/YES — DETACH FROM TASK 

398 

00106 

R 

540662 

R 


SAD 

(026) 

/NO -- READ REQUST? 

399 

00107 

R 

600140 

R 


JMP 

READ 

/YES — READ CARD 

400 

00110 

R 

540663 

R 


SAD 

(036) 

/NU -- HANDLER INFO.? 


PAGE 11 

CD. . , 

»• 

021 

CD, 

.... CR15/UC15 

CARD READER EDIT 

#020 

401 

00111 

R 

600136 

R 


JMP 

HINF 

/YES -- RETURN INFO IN EV 

402 

00112 

R 

540657 

R 


SAD 

(777) 

/NO -- EXIT (DEASSIGNED) REQUEST? 

403 

00113 

R 

600464 

R 


JMP 

DAEX 

/YES -- OEATTACH S, EXIT 

404 

00114 

R 

540664 

R 


SAD 

(017) 

/ABORT REQUEST? 

405 

00115 

R 

600502 

R 


JMP 

CDABRT 

/YES. 

406 

00116 

H 

777772 

A 

EVM6 

LAW 

-6 

/NO -- UNIMPLEMENTED FUNCTION -- SET 

407 

00117 

R 

600424 

R 


JMP 

SEV 

/EVENT VARIABLE TO -6 

408 





/ 




409 





/ ATTACH TO A 

TASK 


410 





/ 




411 

00120 

R 

200567 

R 

ATTACH 

LAC 

POVNA 

/ATTACH LUN & DEVICE ' 

412 

00121 

R 

060647 

R 


DAC* 

(Rl) 


413 

00122 

R 

200564 

H 


LAC 

RN 


414 

00123 

R 

060651 

R 


DAC * 

(R2) 


415 

00124 

R 

120665 

R 


JMS* 

(ALAD) 

/R 3 , R4 , R5 , R6, X10, Xll, XR & AC ARE 

416 








/WAS LUN ATTACHED? 

417 

00125 

R 

600424 

R 


JMP 

SEV 

/NO -- SET REQUESTOR'S EV TO -24 

418 

00126 

R 

600423 

R 


JMP 

REQCMP 

/YES REQUEST COMPLETED 

419 





/ 




420 





/ DETACH 

1 FROM 

TASK 


421 





/ 




422 

00127 

R 

200567 

R 

DETACH 

LAC 

PDVN A 

/DETACH LUN & DEVICE 

423 

00130 

R 

060647 

R 


DAC* 

(Rl) 


424 

00131 

R 

200564 

R 


LAC 

RN 


425 

00132 

R 

060651 

R 


DAC* 

(R2) 


426 

00133 

H 

120666 

R 


JMS* 

( DLAD ) 

/K3 , R4, R5, R6, X10, Xll, XR & AC ARE 

427 








/WAS LUN ATTACHED 

428 

00134 

R 

600424 

R 


JMP 

SEV 

/NO -- SET REQUESTOR'S EV TO -24 

429 

00135 

H 

600423 

R 


JMP 

REQCMP 

/YES -- REQUEST COMPLETED 

430 





/ 




431 
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PAGE 12 

CD... 

'• 

021 

CO, 

.... CR15/UC15 

CARD READER EDIT 

1 020 

432 





/ 




433 





/ RETURN HANDLER INFORMATION 


434 





/ 




435 

00136 

R 

200667 

R 

HXNF 

LAC 

(200007) 


436 

00137 

ft 

600424 

R 


JMP 

SEV 


437 





/ 




438 





/READ 

CARD 



439 





/ 




440 

00140 

ft 

777776 

A 

READ 

LAW 

-2 

/CHK, FOR 10PS ASCII DATA MODE. 

441 

00141 

R 

350007 

A 


TAD 

7,X 


442 

00142 

R 

740200 

A 


SZA 


/10PS ASCII? 

443 

00143 

ft 

600460 

R 


JMP 

EVM7 

/NO, RETURN -5 EV. 

444 

00144 

R 

210002 

A 


LAC 

2 t X 

/SAVE STL NODE PTR. FOR TASK 1 DENT IF. 

445 

00145 

ft 

040556 

R 


DAC 

STLA 

/SAVE VALID STL PTR. 

446 

00146 

R 

210010 

A 


LAC 

10, X 

/YES. VAL/ADJ. HEADER ADDRESS 

447 

00147 

R 

060670 

R 


DAC* 

CR3) 

/HEADER ADDRESS. 

448 

00150 

R 

210011 

A 


LAC 

11, X 

/WORD COUNT 

449 

00151 

R 

060671 

R 


DAC* 

(R4) 


450 

00152 

K 

740031 

A 


TCA 


/SETUP COUNTER SINCE 

451 

00153 

R 

723002 

A 


AAC 

+ 2 

/OFFSET FOR CR APPENDAGE, 

452 

00154 

R 

040566 

R 


DAC 

CDWDCT 

/ VAJX ALTERS THE XR, 

453 

00155 

R 

040574 

R 


DAC 

fCWC 

/SAVE IN CASE RETRY , 

454 

00156 

ft 

200564 

R 


LAC 

RN 

/RED. NODE ADDRESS. 

455 

00157 

R 

040571 

R 


DAC 

RRN 

/SAVE READ RED. NODE ADDR. FOR ABORT, 

456 

00160 

R 

060651 

R 


DAC* 

(R2) 


457 

00161 

R 

120672 

R 


JMS* 

(VAJX) 

/VAL/ADJ. (ALTERS XR,AC,R3,R5) 

458 

00162 

R 

600462 

R 


JMP 

EVM30 

/RETS. HERE IF ERROR (I/O PARAM. OUT 

459 








/OF PARTITION. 

460 

00163 

R 

220670 

R 


LAC* 

(R3) 

/ADJUSTED HEADER ADDRESS -1 TO X12 TEMP. 

461 

00164 

R 

723777 

A 


AAC 

-1 


462 

00165 

R 

040572 

R 


DAC 

TX12 


463 

00166 

R 

723002 

A 


AAC 

+ 2 

/TEXT ADDRESS-1 TO X13 TEMP. 

464 

00167 

R 

040573 

R 


DAC 

TX1 3 

/ 

465 

00170 

R 

140565 

R 


DZM 

CDRVAL 

/ 1 N IT . VALID. BITS. 

466 






• IFUND 

UC15 


467 






LAC 

CDON 

/HAS CARD DONE FLAG COME UP SINCE 

468 






SNA 


/LAST CARD READ? 

469 






CAL 

WFCRCD 

/NO. WAITFOR CARD DONE. 

470 






DZM 

CDON 

/YES, CLEAR CARD DONE FLAG. 

471 





RETRY 

LAC 

(IBUF-1) 

/SET INTERN. BUFF ADOR-1 TO DCH CA. 

472 






DAC* 

(CCA) 


473 






DZM* 

(CWC) /PREVENTS DOUBLE INTERRUPTS ON ERRORS'] ]• 

474 






LAC 

rcwc 

/RESTORE REU. WC . 

475 






DAC 

CDWDCT 


476 






DZM 

E VI 

/REINIT EV. RETR V FROM ERROR. 

477 






CRRS 


/READ STATUS IN ORDER TO CHECK FOR READER READY 

478 






AND 

(60) 

/AND ON-LINE. 

479 






SAD 

(60) 

/STATUS BITS 12, 13 SET? 

480 






SKP 


/YES, ON-LINE AND READY FOR READ. 

481 






JMP 

EHR1 

/NO, NOT READY, TYPE MSG1 AND wAl T FOR READY. 

482 






LAC 

(CC2 ) 

/CONDITION CODE 2 -- READ CARD. 

483 






CRLC 


/LOAD CONDITIONS. 


Figure 4-2 (Cont.) 
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484 


CAL 

WFCRCB 

/WAIT FOR INTERRUPT. 

485 

/ 




486 

/ 




487 

/ 




488 

/UPON 

RESUMPTION 

FOLLOWING WAITFOR, EXAMINE EV AND TAKE THE FOLLOWING 

489 

/action: 



490 

/ 




491 

/IF EV 

BIT 9 = 0 

(TROUBLE BIT) 

# NU ERRORS. TRANSLATE CARD PUNCHES 

492 

/TO ASCII AND PASS TO USER AS 

5/7 PACKED ASCII. 

493 

/IF BIT 9 = 1 (TROUBLE BIT), ERROR BITS 08 TO 04 ARE CHECKED IN 

494 

/DESCENDING NUMERICAL ORDER. 

THE FOLLOWING ERROR MESSAGES FOR THE 

495 

/GIVEN 

ERROR CONDITIONS ARE OUTPUT: 

496 

/ 




497 

/DATA 

MISSED OR 

PHOTO ERROR - 

'*** CD DATA MISSED/PHOrO ERROR' 

498 

/PICK 

OR MOTION 

ERROR - •*** CD PICK ERROR' 

499 

/HOPPER EMPTY OR 

; STACKER FULL 

- IGNORED. CAUGHT ON SJBSEG. 

500 

/READ 

AS A READER NOT READY CONDITION. 

501 

/IN ALL CASES WHERE A MESSAGE 

IS TYPED, THIS HANDLER TASK MARKS TIME 

502 

/UNTIL 

THE ERROR 

: IS REMEDIED. 

AT THIS POINT, THE CARD IS REREAD. 

503 

/ 




504 


LAC 

EV 1 

/EV SET AT INTERR. LEVEL TU CONTENTS OF 

505 


DAC 

TST 

/STATUS. SAVE TEMP. 

506 


SWHA 


/SWAP HALVES FOR TROUBLE BIT CHECK. 

507 


SMAIRAR 


/IF NEG. , TROUBLE. 

508 


JMP 

TRANS 

/NO TROUBLE. GO TRANSLATE. 

509 


SZLIRAR 


/DATA MISSED? 

510 


JMP 

EHH4 

/YES. 

511 


SZLIRAR 


/NO. HOPPER EMPTY/STACK. FULL? 

512 


JMP 

TRANS 

/YES. IGNORE. WHEN NEXT CRD. READ CAUGHT AS NOT READY 

513 


SZLiRAR 


/PICK ERROR? 

514 


JMP 

ERR3 

/YES. 

515 


SZLiRAR 


/MOTION ERROR? 

516 


JMP 

ERR3 

/YES. 

517 


JMP 

ERR4 

/NO. MUST BE PHOTO ERROR. 

518 

/ 




519 

/ 




520 

ERR4 

ISZ 

ERRPT 


521 

ERR3 

ISZ 

ERRPT 


522 

ERR2 

ISZ 

ERRPT 


523 

ERR1 

LAC* 

ERRPT 

/ERRMSG. BUFFER ADDR. TO AC. 

524 


JMS 

TTYOUT 

/TYPE MESSAAE. 

525 


JMS 

WE.SW 

/WAITFOR READER READY. 

526 



WFON 


527 


LAC 

(ERRPT+1) 

/REIN IT. ERRPT. 

528 


DAC 

ERRPT 


529 


JMP 

RETRY 

/READ ANOTHER CARD. 

530 

/ 




531 


.EJECT 



532 

TRANS 

LAC 

TX12 

/SET AUTO INDEX REG. 

533 


DAC* 

CX12) 


534 


LAC 

TX 1 3 


535 


DAC* 

CXI 3 J 




Figure 4-2 (Cont. ) 
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536 / 

537 / NOW BRING BACK RN FRUM RHN, IN CASE RN DESTROYED IN MEANTIME 

538 / 


539 


LAC 

RRN 


540 


DAC 

RN 


541 


LAC 

(1BUF) 

/TUP OF INTERNAL BUFFER 

542 


DAC 

ICA 

/PTR TO BUFFER 

543 


LAW 

-20 


544 


DAC 

CDCOLC 

/CARD COL COUNT 

545 

CDRM5 

LAW 

-5 


546 


DAC 

COR5CT 


547 

CDML2 

LAC* 

ICA 

/GET 

548 


SAD 

CDRALT 

/ALT MODE (12,1,8 PUNCH)? 

549 


JMP 

CDGALT 

/YES -- TERMINATE BUFFER 

550 


SAD 

(7777 

/NO -- IS IT AN EOF? 

551 


JMP 

EOF 

/YES. 

552 


LAC 

CDTABL 

/NO -- TRANSLATE TO ASCII 

553 


DAC 

CDTPTR 

/GET TOP OF TABLE AND SET PTR 

554 


LAC 

CDTLN1 

/SET TABLE LENGTH 

555 

CDML4 

DAC 

CDTLEN 

/CURRENT LENGTH/2 

556 


ADD 

CDTPTR 

/CURRENT TABLE TOP + LENGTH/2 

557 


DAC 

CDCPTR 


558 


LAC* 

CDCPTR 

/GET CURRENT ITEM 

559 


AND 

(7777 


560 


SZAiCLL 



561 


ADD 

CD7700 

/ADD IN REST OF 2»S COMPLEMENT WORD 

562 


TAD* 

ICA 

/CURRENT COLUMN 

563 


SNA 1 CLA 


/MATCH FOUND? 

564 


JMP 

CDCFND 

/YES 

565 


SAD 

CDTLEN 

/CURRENT TABLE LENGTH =0? 

566 




/THIS MEANS AN UNKNOWN CARD PUNCH 

567 


JMP 

ILLCP 

/GO OUTPUT ' ILLEGAL CARD PUNCH'. 

568 


SNL 


/L=0 JUMP UP, Lsl JUMP DOWN TABLE 

569 


JMP 

CDDPTR 


570 


LAC 

CDCPTR 

/SET TABLE TOP TO LOwER HALF 

571 


DAC 

CDTPTR 


572 

CDDPTR 

LAC 

CDTLEN 

/UPDATE TABLE LENGTH 

573 


CLL1RAR 



574 


JMP 

CDML4 


575 

CDGALT 

LAW 

4000 

/ALT MODE 

576 


JMP 

CDCPUT 


577 

/ 




578 

EOF 

LAC 

(1005 


579 


JMP 

REOCMA 

/SET HDR WDI TO EOF 

580 




/REQUEST COMPLETE 

581 

/ 




582 

/COME 

HERE ON MATCH FOUND 


583 

/ 




584 

CDCFND 

LAC* 

CDCPTR 

/GET CURRENT ENTRY 

585 


CMAiCLL 


/GEN, LEFTMOST BIT 

586 


TAD 

CDTABLt 1 

/ADD 4000000 

587 


CMA 




Figure 4-2 (Cont. ) 
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508 


XOR 

CDTABL+1 

/RESTORE SIXTH BIT 

589 


RAH 



590 

CDCPUT 

DAC 

CDRWD3 

/PUT IN TOP OF 3 WORO SHIFT BLOCK 

591 

CDCLAW 

LAW 

-7 


592 


DAC 

CDR7CT 


593 

CDCPL1 

LAC 

CDRWD3 

/CDEwD3 . CDRWD2 & CORrtDl SHIFT AS A UNIT USING 

594 




/THE LINK TO PASS BITS FROM WORD TO WORD 

595 


RAL 



596 


DAC 

CDRWD3 


597 


LAC 

CDRWD2 


598 


RAL 



.599 


DAC 

CDRWD2 


600 


LAC 

CDRWD1 


601 


RAL 



602 


DAC 

CDRWD1 


603 


15Z 

COR7CT 


604 


JMP 

CDCPL1 


605 


1SZ 

ICA 

/POINT TO NEXT CARD COL 

606 


1SZ 

CDR5CT 

/HAVE WE PROCESSED 5 WORDS? 

607 


JMP 

CDML2 

/NO GET ANOTHER ONE 

608 


LAC 

CDWDCT 

/YES -- UPDATE WORD COUNT AND 

609 


TAD 

(2 

/CHECK TO SEE IF WE HAVE OVERFLOWED THE 

610 


DAC 

CDWDCT 

/USER'S BUFFER 

611 


SMA 



612 


JMP 

CDVER2 

/YES -- WE HAVE OVERFLOWED 

613 


LAC 

CDRWD2 

/NO -- INSERT 5/7 WORDS IN USER'S BUFFER 

614 


CLL1RAL 



615 


DAC 

CDRWD2 


616 


LAC 

CDRWD1 


617 


RAL 



618 


DAC* 

XI 3 

/STORE FIRST WORD 

619 


LAC 

CDRWD2 


620 


DAC* 

XI 3 

/STORE SECOND WORD 

621 


ISZ 

CDCOLC 


622 


JMP 

CDRM5 


623 

/ 




624 


• ENDC 



625 

/ 




626 


• IFDEF 

UC15 



627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 


IN THE CASE OF THE UNICHANNEL. WE RECIEVE A 42(10) WORD 
BUFFER. THE FIRST WURD IS A BYTE COUNT (NOW ALWAYS 80(10)). 
NOTE THAT AN EOF CARD HAS A BYTE COUNT OF 1 ! l 
SPOOLER DOES CHECKSUM CALCULATION. NOT US. 

THE SECOND IS A CHECKSUM SO ENTIRE BUFFER ADDS TO 0 
111# # I MODULO 2*16 THAT lS#MUi. THEN ARE 40(10) WORDS 
OF 'COMPRESSED COLUMN', (SEE CK-11 DRIVER MANUAL). EACH 
WORD HAS TWO EXTRANEOUS BITS AT LEFT. THE 1SECOND CHARI 
OF THE PAIR. AND FINALLY THE FIRST CHAR OF PAIR AT RIGHTMOST 
OF WORD. THE PDP-11 HAS ALREADY CHECKED FOR VALID PUNCH 
COMBINATIONS (64 VALID CARD ASCII. PLUS 12-1-8 FOR ALTMODE). 


Figure 4-2 (Cont.) 
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640 

00171 

R 

750030 

A 

RETRY 

CLA'IAC 


/SET VARIABLE SAY81NG WE'RE WAITING FUR 

641 

00172 

R 

040407 

R 



DAC 

POST 

/INTERRUPT 

642 

00173 

R 

140554 

R 



DZM 

CDON 

/AND SAY WE HAVEN'T GOTTEN IT YET 

643 

00174 

R 

200614 

R 



LAC 

TCBP 

/ADDR OF TABLE TELLING PDP-11 TO READ CARD 

644 

00175 

R 

100616 

R 



JMS 

CDIU 

/ROUTINE TO SEND REQUEST TO PDP-11 

645 

00176 

R 

600057 

R 



JMP 

WFTGR 

/WAIT FOR COMPLETION INTERRUPT 

646 





/ 





647 





/ 

COME 

BACK HERE WHEN 

CARD IS READ 

648 





/ 





649 

00177 

R 

200571 

R 

GUTCRD 

LAC 

RRN 

/RESTORE RN NUDE 

650 

00200 

R 

040564 

R 



DAC 

RN 


651 

00201 

R 

140407 

R 



DZM 

POST 

/CLEAR INTERRUPT FLAGS 

652 

00202 

K 

140554 

R 



DZM 

CDON 

/BEST TO CLEAR POST FIRST' 

653 

00203 

R 

200605 

R 



LAC 

E V 1 1 

/EVENT VARIABLE FROM PDP-11 

654 

00204 

R 

742010 

A 



RTL 


/PDP-11 SIGN BIT TO OUR SIGN BIT 

655 

00205 

R 

745120 

A 



SPA iCLL IRAK 

/SKIP IF OK, START CLEARING HIGH BITS 

656 

00206 

R 

600636 

R 



JMP 

CD UC EC 

/GO CHECK WHICH KIND UF PIREX ERROR 

657 

00207 

R 

200572 

R 



LAC 

TX12 

/SETUP XI 2 , XI 3 FOR USER BUFFER 

656 

00210 

R 

060673 

R 



DAC* 

CX12 

/MANIPULATIONS. X12 HEADER POINTER 

659 

00211 

R 

200573 

R 



LAC 

TX13 

/XI 3 DATA POINTER 

660 

00212 

R 

060674 

R 



DAC* 

CX13 


661 

00213 

R 

220675 

R 



LAC* 

(IBUF+2 

/GET FIRST CHARACTER PAIR (2 WORD HDR) 

662 

00214 

R 

540676 

R 



SAD 

(104611 

/SPOOLER USES AN ALT-ALT CARD AS AN END 

663 





/ 




/OF DECK CARD, WE SHOULD IGNORE IT ! 1 

664 

00215 

R 

600171 

R 



JMP 

RETRY 

/IT WAS ONE, JUST READ THE NEXT CARD 

665 

00216 

R 

500677 

R 



AND 

(340 

/ 1 2 , 1 1 , 0 PUNCHES IN FIRST COLM.=EOF 

666 

00217 

R 

340700 

R 



TAD 

(445 

/IF IT IS UNE, MAKE A 1005 

667 

00220 

R 

540701 

R 



SAD 

(1005 

/WELL, IF SO GO LACE 1005 AS HEADER 

668 

00221 

R 

600420 

R 



JMP 

REQCMA 

/EOF CARD, JUST SET HEADER. 

669 





/ 





670 

00222 

R 

200675 

R 



LAC 

(IBUF+2 

/DATA STARTS AT BUFF+2 

671 

00223 

R 

744010 

A 



CLL'RAL 


/TOP 17 BITS ADDRESS, LAST IS RIGHT-LEFT FLOP 

672 

00224 

R 

040405 

R 



DAC 

CDIPTR 

/TO GET INCOMING CHAR'S 

673 

00225 

R 

777660 

A 



LAW 

-120 

/8Q CHAR'S 

674 

00226 

R 

040560 

R 



DAC 

CDCOLC 

/NOTE WE USE COUNTERS DIFERENT ALSU 

675 

00227 

R 

200331 

R 

PKINI 

LAC 

PAKI 

/ 1 N i T 5/7 PACKER TO EXPECT 

676 

00230 

R 

040327 

R 



DAC 

PAKSW 

/ 1 ST CHAR OF A BUNCH OF FIVE 

677 

00231 

R 

200566 

R 



LAC 

CDwDCT 

/WE USE AS COUNT UF PAIRS, NOT WORDS 

678 

00232 

R 

744020 

A 



CLLJRAR 


/SO DIVIDE BY TWO 

679 

00233 

R 

040566 

R 



DAC 

CDWDCT 


680 

00234 

R 

200405 

R 

CDRML2 

LAC 

CDIPTR 

/WATCH IT! TOP 17 BITS ADDR, LOW BIT LEFT 

681 

00235 

R 

440405 

R 



1SZ 

CDIPTR 

/RIGHT FLIP-FLOP. AND!! POINTER POINTS TO 

682 





/ 




/NEXT CHAR, NOT LAST ONE RETREIVED. 

683 

00236 

R 

744020 

A 



CLL'RAR 


/FLIP-FLOP TO LINK, ADDR AC 

684 

00237 

R 

040406 

R 



DAC 

CDT1 

/HOLD POINTER IN TEMPORARY 

685 

00240 

K 

220406 

R 



LAC* 

CDT1 

/GET CHARACTER PAIR 

686 

00241 

R 

741410 

A 



SZL1RAL 


/THESE THREE GET CORRECT CHAR 

687 

00242 

R 

743030 

A 



SWHA'SKP 

/TO LOW ORDER 8 BITS OF WORD 

688 

00243 

R 

740020 

A 



RAR 



689 

00244 

R 

500702 

R 



AND 

(377 

/STRIP OTHER CHARACTER 

690 





/ 




/AT THIS PUINT HAVE CLOMNS 12,11,0,9,8,1-7 

691 





/ 




/WHERE 1-7 CODED IN THREE BITS 


Figure 4-2 (Cont. ) 
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'• 

021 
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. CR15/UC15 CARD READER EDIT #020 

692 

00245 

R 

040406 

R 



DAC 

CUT 1 

/HOLD 

693 

00246 

R 

540404 

R 



SAD 

CDALT 

/ALT MODE SPECIAL CASE, NO REMAP 

694 

00247 

R 

600260 

R 



JMP 

CDGALT 

/REJOIN AS SPECIAL CASE 

695 

00250 

R 

500703 

R 



AND 

(20 

/IF NINE PUNCH, PECIAL CASE, REMAP TU 8,1 PUNCH 

696 

00251 

R 

740200 

A 



SZA 


/COMBO FOR OUR TRANSLATE. SKIP IF NOT NINE 

697 

00252 

R 

777771 

A 



LAW 

-7 

/ADDED TO '9' GIVES '8' AND 

698 

00253 

R 

340406 

R 



TAD 

CDT1 

/REMAPPED, 

699 

00254 

R 

040406 

R 



DAC 

CDT1 

/SAVE, NOW TO MOVE BOTTOM FOUR BITS LEFT ONE 

700 

00255 

R 

500664 

R 



AND 

(17 

/POSITION (9 POSITION NOW VACATED') 

701 

00256 

R 

340406 

R 



TAD 

CDT1 

/THIS DOES IT, LEAVING LOW ORDER BIT ZERO 

702 





/ 




/NOW COLUMNS 12, 11 ,0,8, 1-7, ZERO Bill 

703 

00257 

R 

745000 

A 



SKPtCLL 


/HIDE V OUR HEAD. CLL FOR COMING R1K.SKIP 

704 





/ 




/OVER ALT-MODE RE-ENTRY 

705 

00260 

R 

200704 

R 

CDGALT 

LAC 

(240 

/INDEX TO ALT MODE 

706 

00261 

R 

742020 

A 



RTR 


/RIGHT-LEFT TU LINK, INDEX TO AC 

707 

00262 

R 

340705 

R 



TAD 

(CDTAHL /TABLE ADDR 

708 

00263 

R 

040406 

R 



DAC 

CDT1 


709 

00264 

R 

220406 

R 



LAC* 

CDT1 

/GET PAIR FROM TRANSLATE TABLE 

710 

00265 

R 

740400 

A 



SNL 


/HERE 0 IS LEFT, IN NORMAL SENSE 

711 

00266 

R 

742030 

A 



SWHA 



712 

00267 

R 

100323 

R 



JMS 

PAK57 

/5/ 7/ PACKER (IT STRIPS X f HA BITS) 

713 

00270 

R 

440560 

R 



1SZ 

CDCOLC 

/ 80 ? 

714 

00271 

R 

600234 

R 



JMP 

CDRML2 

/NO 

715 

00272 

R 

600410 

R 



JMP 

CDCLOS 

/YES 

716 





/ 





717 





/ 

TRANSLATE TABLE 4 GROUPS OF 16 CHAR'S, TWO PER WORD. 8 WORD 

718 





/ 

SPAC 

E BETWEEN LAST 

TWO GROUPS, IN WHICH wE PUT OTHER STUFF 

719 





/ 

CONDITIONAL! ZED FOR 

026-029 OF COURSE. LEFT HAND CHAR IS FIRST. 

720 





/ 





721 







• IFUND 

DEC026 


722 

00273 

R 

040061 

A 

CDTABL 

040061 

/BLANK 

, 1-PUNCH 

723 

00274 

R 

062063 

A 



062063 

/2-PUN 

CH, 3-PUNCH 

724 

00275 

R 

064065 

A 



064065 

/4,5 


725 

00276 

R 

066067 

A 



066067 

/6 , 7 


726 

00277 

R 

070071 

A 



070071 

/ 8 , 9 (ORDERED AS 8-1) 

727 - 

00300 

K 

072043 

A 



072043 

/8-2 , 8 

-3 

728 

00301 

R 

100047 

A 



100047 

/8-4 , 8 

-5 

729 

00302 

R 

075042 

A 



075042 

/8-6 , 8 

-7 

730 

00303 

R 

060057 

A 



060057 

/0,0-l 


731 

00304 

R 

123124 

A 



123124 

/0-2 , 0 

-3 

732 

00305 

R 

125126 

A 



125126 

/Q-4,0 

-5 

733 

00306 

R 

127130 

A 



127130 

/Q-6,0 

-7 

734 

00307 

R 

131132 

A 



131132 

/Q-B , 0 

-9(UKDERED AS 0-8-1) 

735 

00310 

R 

135054 

A 



135054 

/0-8-2 

,0-8-3 

736 

0031 1 

R 

045137 

A 



045137 

/0-8-4 

,0-8-5 

737 

00312 

R 

076077 

A 



076077 

/0-8-6 

,0-8-7 

738 

00313 

R 

055112 

A 



055112 

/II ,11 

-1 

739 

00314 

R 

113114 

A 



113114 

/11-2, 

11-3 

740 

00315 

R 

115116 

A 



115116 

/ 1 1 "4 , 

11-5 

741 

00316 

R 

117120 

A 



117120 

/ 1 1 “6 , 

11-7 

742 

00317 

R 

121122 

A 



121122 

/ 1 1 -8 , 

1 1 -9 ( ORDERED AS 11-8-1) 

743 

00320 

R 

041044 

A 



041044 

/ 1 1 -8- 

2,11-8-3 


Figure 4-2 (Cont.) 
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744 

745 

746 

747 
746 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 
766 

769 

770 

771 

772 

773 

774 

775 

776 

777 
770 
779 

700 

701 

702 

703 


00321 R 052051 A 

00322 K 073134 A 


/11-8-4, 11-0-5 
/U-8-6, 11-8-7 


DEC026 


CDTABL 


052051 

073134 

. ENDC 

, IFDEF 

040061 

062063 

064065 

066067 

070071 

137075 

100136 

047134 

060057 

123124 

125126 

127130 

131132 

073054 

050042 

043045 

055112 

113114 

115116 

117120 

121122 

072044 

052133 

076046 

.ENDC 


NO# THE 8 IOC. BREAK IN THE TABLE 


704 

00323 

R 

000000 

A 

PAK57 

0 


785 





/ 



786 





/ 



787 

00324 

R 

500706 

R 


AND 

C 1 7 7 

788 

00325 

R 

744000 

A 


CLL 


789 

00326 

R 

620327 

R 


JMP# 

PAKSW 

790 

00327 

R 

740040 

A 

PAKSW 

HLT 


791 

00330 

R 

620323 

R 


JMP* 

PAK57 

792 

00331 

R 

000345 

R 

PAKI 

PAKST 


793 

00332 

R 

000000 

A 

PAKI 

0 


794 





/ 




795 


THE 5/7 PACKER, A LITTLE THICK* PAKSW KEEPS A PC WHICH 
' REMEMBERS ' WHICH CHARQCTER OF 5 WE ARE AT. TO IwIT PACKER, 
SEE TWO LINES OF CODE AT PAKINT. NORMAL 'FLUSH' OUT WOULD 
BE TO SEND NUL CHAR'S UNTIL PAKSw=PAKl . IN THIS 
HANDLER, PAST HISTOR* SAYS WE TRUNCATE ALwAlS AT A WORD 
PAIR BOUNDARY, EVEN FOR SHORT BUFFERS. 1 AM AFRAID TO 
CHANGE THIS, EVEN THOUGH I DON'T LIKE IT. 

/CALL WITH CHAR IN AC, ( DESTROYED! 
/PUSHES CHAR'S THRU X1J. EARL* END CHECK 
/IN CDWDCT. 

/STIP XTRA 

/FOR ALL ROTATES AND SWAPS 1 
/TO WHATEVER ACTION THIS CHAR. NEEDS. 
/POINTER TO ACTINS FOR CHARACTER 
/THAT'S ALL, OUT 
/INIT PAKSW FUR FIRST CHAR. 

/TEMPORARY FOR PARTIAL WORDS 

REST OF TRANSLATE TAfaLE 


Figure 4-2 (Cont. ) 

XVM CRll XVM/RSX Handler 
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CO... 

' 

021 

CD, 

.... CR15/UC15 CARD READER EDIT #020 

796 





✓ 



797 






. 1FUND 

DEC026 

798 

00333 

R 

046101 

A 


046101 

✓ 12, 12-1 

799 

00334 

R 

102103 

A 


102103 

✓12-2,12-3 

800 

00335 

R 

104105 

A 


104105 

✓12-4,12-5 

801 

00336 

R 

106107 

A 


106107 

✓12-6,12-7 

802 

00337 

R 

110111 

A 


110111 

✓12-8,12-9(ORDER£D AS 12-8-1) 

803 

00340 

R 

133056 

A 


133056 

✓12-8-2,12-8-3 

804 

00341 

R 

074050 

A 


074050 

✓12-8-4,12-8-5 

805 

00342 

R 

053136 

A 


053136 

✓12-8-6,12-8-7 

806 






. ENDC 


807 






• IFDEF 

DEC026 

808 






053101 


809 






102103 


810 






104105 


811 






106107 


812 






110111 


813 






077056 


814 






051135 


815 






074041 


816 






.ENDC 


817 

00343 

R 

175000 

A 


175000 

/ALT MODE, FOR BOTH PUNCH SETS. 

818 





✓ 



819 





✓ NOW 

REST or 

5/7 PACKER 

820 





/ 



821 

00344 

R 

100327 

R 

PAKQ 

JMS 

PAKSW /5TH CHAR WRAP BACK TO 1ST. JMS TO PAKSW 

822 





✓ 


✓LEAVES ADDR OF ACTION FOR 1ST.!. 

823 

00345 

R 

742010 

A 

PAKST 

RTL 

✓1ST CHARACTER ACTION, MOVE TO LEFT OF WORD 

824 

00346 

R 

742030 

A 


SWHA 


825 

00347 

R 

040332 

R 


DAC 

PAKT /HOLD AS PARTIALLY ASSEMBLED WORD 

826 

00350 

R 

100327 

R 


JMS 

PAKSW /LEAVE POINTER TO 2ND CHAR 

827 





✓ 



828 

00351 

R 

742010 

A 


RTL 

✓2ND CHAR ACTION 

829 

00352 

R 

742010 

A 


RTL 


830 

00353 

R 

240332 

R 


XOR 

PAKT /MARGE WITH FIRST 

831 

00354 

R 

040332 

R 


DAC 

PAKT /WAIT FOR PART OF 3RD TO FILL WORD 

832 

00355 

R 

100327 

R 


JMS 

PAKSW /LEAVE POINTER TO THIRD 

833 





✓ 



834 

00356 

R 

742020 

A 


RTR 

✓3RD, TWO PARTS, FIRST IS TOP 4 BITS 

835 

00357 

R 

740020 

A 


RAR 

✓RIGHT JUSTIFIED 1ST WORD OF PAIR 

836 

00360 

R 

040327 

R 


DAC 

PAKSW /VERT- TEMPORARY IN HERE 

837 

00361 

R 

500664 

R 


AND 

(17 /ZAP OTHER BITS 

838 

00362 

R 

240332 

R 


XOR 

PAKT /COMPLETE 1ST WORD OF PAIR 

839 

00363 

R 

060013 

A 


DAC* 

XI 3 /PLACE IN USER BUFFER 

840 

00364 

R 

200327 

R 


LAC 

PAKSW /GET BACK THIRD CHAR (LINK STILL OKU') 

841 

00365 

R 

740020 

A 


RAR 

✓2ND JOB, LOW THREE BITS OF CHAR TOP OF 

842 

00366 

R 

500707 

R 


AND 

(700000 /2ND WORD OF PAIR 

843 

00367 

R 

040332 

R 


DAC 

PAKT ✓ WHEW 1 , HOLD THAT IN PARTIAL WORD 

844 

00370 

R 

100327 

R 


JMS 

PAKSW /LEAVE POINTER FOR FOURTH 

845 





/ 



846 

00371 

R 

742030 

A 


SWHA 

✓4TH , SNUG UP TO 3 BITS ON TOP 

847 

00372 

R 

740020 

A 


RAR 



Figure 4-2 (Cont.) 
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CD... 

• 

021 

CD, 

.... CR15/UC1S CARD READER EDIT *020 

848 

00373 

R 

240332 

R 


XOR 

PART 

/TOGETHER 

849 

00374 

R 

040332 

R 


DAC 

PART 


850 

00375 

R 

100327 

R 


JMS 

PARSW 

/LEAVE POINTER FOR 5TH 

851 





/ 




852 

00376 

R 

440566 

R 


ISZ 

CDWDCT 

/OVERFLOW SHORT BUFFER? 

853 

00377 

R 

741010 

A 


SKP1RAL 


/NO, RAL LEAVE XTRA SIT UF PAIR ON RIGHT 

854 

00400 

R 

600452 

R 


JMP 

CDVER2 

/UH-OH , GO CORRECT 

855 

00401 

R 

240332 

R 


XOR 

PART 

/COMPLETE 2ND WORD OF PAIR 

856 

00402 

R 

060013 

A 


DAC* 

XI 3 

/PLACE 

857 

00403 

R 

600344 

R 


JMP 

PAKQ 

/GO PLACE PARSW FOR FIRST CHAR OF FIVE 

858 





/ 




859 

00404 

R 

000211 

A 

CDALT 

211 



860 

00405 

R 

Q00OQ0 

A 

CDIPTR 

0 


/POINTER TU INPUT DATA IN INPUT BUFFER 

861 





/ 



/FRMAT. LOW BIT RIGHT-LEFT FL1PFLOP 

862 





/ 



/TOP 17 BITS ADDRESS 

863 

00406 

R 

000000 

A 

CDT1 

0 


/TEMPORARY FOR TRANSLATION 

864 

00407 

R 

oooooo 

A 

POST 

0 


/Q WHEN NOT WAITING FOR INTERRUPT, 1 WHEN YES 

865 






* ENDC 



866 





/ THE l 

BUFFER HAS BEEN 

REMAPPED -- STORE A »CR' IN THE TRAILER 

867 





/ WORD 

AND SET 

UP THE 

HEADER WORD 

868 





/ 




869 

00410 

R 

200710 

R 

CDCLUS 

LAC 

C 64000 


870 

00411 

R 

060013 

A 


DAC* 

XI 3 

/SET * CR ' IN USER BUFFER 

871 

00412 

R 

200560 

R 


LAC 

CDCOLC 

/CDCOLC IS NEGATIVE 

872 

00413 

R 

723022 

A 


AAC 

22 


873 

00414 

R 

744000 

A 


CLL 


/ROTATE INTO PLACE 

874 

00415 

R 

640711 

A 


ALS 

11 

/SHIFT INTO POSITION 

875 

00416 

R 

340565 

R 


TAD 

CDRVAL 

/ADD IN BUFFER OVERFLOW IF ANY CBITS 

876 

00417 

R 

723002 

A 


AAC 

2 


877 

00420 

R 

060012 

A 

REUCMA 

DAC* 

XI 2 

/SET HEADER WORD ONE 

878 

00421 

R 

777777 

A 

REDCOM 

LAW 

-1 

/SET RRN, SAYING NO MORE READ OUTSTANDING 

879 

00422 

R 

040571 

R 


DAC 

RRN 


880 

00423 

R 

750030 

A 

REQCMP 

C LA 1 1 AC 



881 

00424 

R 

100426 

R 

SEV 

JMS 

SEVRN 

/SUB. TO SET EV, RETURN NODE 

882 

00425 

R 

600060 

R 


JMP 

PQ 

/GO LOOK FOR MORE WORK 

883 





/ 




884 





/ 




885 





/ SEVRN 



886 





/ 




887 





/ 




888 





/ ROUTINE IS 

CALLED 

WITH VALE FOR EV IN AC 

889 





/ THE 

NODE ADDH, IS IN RN 

890 





/ 




891 





/ EV 

IS SET, SIGNIFICANT EVEN!’ DECLARED, 10CD OOOE, NODE RETURNED. 

892 





/ 




893 

00426 

R 

oooooo 

A 

SEVRN 

0 



894 

00427 

R 

722000 

A 


PAL 


/SAVE AC VALUE 

895 

00430 

R 

200564 

R 


LAC 

HN 

/NODE AUDR 

896 

00431 

R 

060651 

R 


DAC* 

CR2 

/SYSTEM ARGUMENT HOLDER 

897 

00432 

R 

540563 

R 


TAD 

XADJ 

/ADJUST FOR PREE5ENT PAGE 

898 

00433 

R 

721000 

A 


PAX 


/FOR Xfi ADDRESSING 

899 

00434 

R 

210006 

A 


LAC 

6,X 

/EVENT VARIABLE ADDRESS 


Figure 4-2 (Cont.) 

XVM CR11 XVM/RSX Handler 
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CD... 

• 

021 

CD, 

.... CR15/UC15 

CARD READER EDIT 

• 020 

900 

00435 

R 

741200 

A 


SNA 


/SKIP 

IF REALLY ONE 

901 

00436 

R 

600443 

R 


JMP 

NOSET 

/NOPE, 

SO DON'T SET 

902 

00437 

R 

340563 

R 


TAD 

XADJ 

/MODIFY IT FOR ADDRESSING 

903 

00440 

R 

721000 

A 


PAX 




904 

00441 

R 

730000 

A 


PLA 


/BRING 

BACK SETTING VALUE 

905 

00442 

R 

050000 

A 


DAC 

0,X 

/THERE 

IT GOES! 

906 

00443 

R 

200711 

R 

NOSET 

LAC 

(401000 

/DECLARE A SIGNIFICANT EVENT 

907 

00444 

R 

705504 

A 


ISA 




908 

00445 

R 

200704 

R 


LAC 

(POOL 

/GIVE 

NODE TO POOL 

909 

00446 

R 

060647 

R 


DAC* 

(R1 

/SYSTEM ARGUMENT REG 

910 

00447 

R 

120712 

R 


JMS* 

(IOCD 

/DECREMENT 10 COUNT 

911 

00450 

R 

120713 

R 


JMS* 

(NADU 

/GIVE 

BACK NODE 

912 

00451 

R 

620426 

R 


JMP* 

SEVRN 

/THAT/S IT 

913 





/ 





914 





/ 





915 





/ 





916 





/ ♦ ♦**♦ 

BUFFER 

OVERFLOW 



917 





/ 





918 

00452 

R 

777776 

A 

CDVER2 

LAW 

-2 


/BACKUP USER BUFFER PTR 

919 

00453 

R 

360674 

R 


TAD* 

( XI 3 ) 



920 

00454 

R 

060674 

R 


DAC* 

( XI 3 ) 



921 

00455 

R 

200714 

R 


LAC 

(60) 


/SET OVERFLOW BITS FOR USE BY CDCLOS 

922 

00456 

R 

040565 

R 


DAC 

CDRVAL 



923 

00457 

R 

600410 

R 


JMP 

CDCLOS 



924 





/ 





925 

00460 

R 

777771 

A 

EVM7 

LAW 

-7 


/ILLEGAL DATA MODE. 

926 

00461 

R 

600424 

R 


JMP 

SEV 



927 

00462 

R 

777750 

A 

EVM30 

LAW 

-30 


/I/O PARAM. OUT OF PARTITION. 

928 

00463 

R 

600424 

R 


JMP 

SEV 



929 





/ 





930 






• 1FUND 

UC15 



931 





/ 





932 





AEVM6 

LAW 

-6 


/ILLEGAL FUNCTION. 

933 






JMP 

SAEV 


/SET ABORT EV. 

934 





/ 





935 





/ON ILLEGAL CARD PUNCH, 

WAIT FUR READER NOT READY FOLLOWED BY 

936 





/READER 

READY 

SEQUENCE 

BEFORE 

READING ANOTHER CARD. 

937 





/ 





938 





ILLCP 

LAC 

(ERRMG2) 

/TYPE 'ILLEGAL CARD PUNCH' . 

939 






JMS 

TTYQUT 



940 






JMS 

WF.SW 


/WAIT FOR READER NOT READY. 

941 







WFOFF 


/PSUEDO INSTR. FOR wF.SW. 

942 






JMS 

WF.SW 


/WAIT FOR READER READY. 

943 







WFON 


/PSUEDO INSTR. FOR WF.SW. 

944 






JMP 

RETRY 


/READ ANOTHER CARD. 

945 





/ 





946 





/ 

SUBR. 

TO WAIT FOR READER NOT READY OR READY FOR READ 

947 





/ 

PER PSUEDO INSTR. IN CALLING SEQUENCE. AFTER MARK TIME REQS. 

948 





/ 

THE TRIG. EV. IS CHECKED FOR AN ABORT REQ. IN THE QUEUE. 

949 





/ 

IF TASK REQ. READ IS TO BE ABORTED, THE SUBR. DOESN'T 

950 





/ 

RETURN 

NORMALLY 

, BUT EVENTUALLY JUMPS TO CDABRT. 

951 





/ 

CALLING SEQUENC 

ES 



Figure 4-2 (Cont.) 
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CD.,.. 021 

CD..., CR15/UC15 

CARD READER EDIT 

#020 

952 


/ 




953 


/ 

JMS 

WF.SW 


954 


/ 


PSUED. IN5TR. 

( WFQFF OR WFQN ) 

955 


/ 

SUBK . 

RETURN , IF NO INTERVENING ABORT FOR THIS TASK. 

956 


/ 




957 


WF.Srf 

0 



958 



LAC* 

WF.SW 

/GET PSUEDU INSTR, 

959 



DAC 

PV1 


960 



ISZ 

NF.SW 

/BUMP EXIT. 

961 


WF.SrtA 

CRRS 


/READ CARD READER STATUS. 

962 



AND 

(20) 

/CHECK FOR READER READ* FUR READ. 

963 


PV1 

XX 


/SNA OR SZA. (READER READ* IF NON-ZERO AC! 

964 



JMP* 

NF.SW 

/EXIT. 

965 



CAL 

MTCPB 

/MARK TIME FOR *A1T, 

966 



CAL 

WFECB 

/NAIT FUR MARK TIME INTERVAL, 

967 



DZM 

EV 


968 



LAC 

TG 

/CHECK FOR ABORT RED. IN QUEUE. 

969 



RTL 



970 



SMA 


/ABORT REQ.? 

971 



JMP 

WF.SWA 

/CHECK AGAIN. 

972 



DZM 

TG 

/YES . DEQUEUE ABORT REQ , 

973 



LAC 

PDVNA /PD VL 

NODE addr. 

974 



DAC* 

(Rl) 


975 



JMS* 

(DQRU) 

/DEQUEUE ABRT. REQ. Rl , R2 , R4 , R5 , R6 , XR , AC 

976 



NOP 


/ALTERED. ASSUME ABRT. REQ, IN QUEUE. 

977 



DAC 

RN 

/SAVE ABORT REQ. NODE ADDR. 

978 



TAD 

XADJ 

/SET XR. 

979 



PAX 



900 



LAC 

6,X 

/GET ABRT. REQ. EV. 

981 



DAC 

ARE 


982 



LAC 

5,X 

/CHECK FOR ZERO LUN. 

983 



AND 

(777000) 

/BITS 0-8 

984 



SZA 



985 



JMP 

AEVM6 

/ERROR. NON-ZERO LUN. 

986 



LAC 

2 i X 

/GET STL. NODE PTR. AND CHECK AGAINST 

987 



SAD 

STLA 

/READ REQ. STL NODE PTR. SAME/ 

908 



JMP 

CDARD 

/YES, ABORT READ REQ. ANO CLEAN UP. 

989 



LAC 

PDVNA /NO, 

CLEAN UP QUEUE OF TASK TO BE ABRTED . 

990 



DAC* 

(Rl) 

/ALSO RETR. ABRT. REQ. NODE TO POOL AND 

991 



LAC 

RN 

/DECK. TRANSF. PEND. CM. ABRT. REQ. NODE 

992 



OAC* 

(R2) 

/ADDR. TO R2 . 

993 



JMS* 

(DMTQ) 

/EMPTY REQ. UUEUE OF ALL I/O 

994 





/REU.'S MADE BY TASK BEING ABORTED. 

995 





/Rl ,R2 f K3#R5,R6,X10,Xll » XI 2# XR, AC ALTERED. 

996 



LAC 

(1) 

/SET ABRT. REQ, EV TO *1. 

997 


SAEV 

PAL 



990 



LAC 

ARE 

/ABORT REQ, EV, 

999 



TAD 

XADJ 


1000 



PAX 



1001 



PLA 



1002 



DAC 

0,X 


1003 



LAC 

(401000) 



PAGE 23 CD..., 021 CD.,,. CR15/UC15 CARD READER EDIT #020 

1004 X5A /DECLARE SIGNIF. EVENT. 


1005 


LAC 

1006 


DAC* 

1007 


LAC 

1008 


DAC* 

1009 


JMS* 

1010 


JMS* 

1011 


JMP 

1012 

CDARD 

CLAJ IAC 

1013 


DAC 

1014 


JMP 

1015 

/ 


1016 


• ENDC 

1017 


.EJECT 


RN /RETHN, ABRT. REQ. NODE TO PUOL. 

(K2) 

(POOL) 

(Rl) 

(IOCD) /DECR. TRAiMSF. PEND. CNT. 

C N ADD) /RLTRN » NODE TO PUOL. 

NF.SNA /CHECK AGAIN. 

/SET CARD DUNE FLAG. 

CDON 

CDABKT /PROCEED WITH ABORT. 


Figure 4-2 (Cont.) 
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1019 

1020 
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1024 
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1048 

1049 

1050 

1051 
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1054 
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1060 
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1062 

1063 

1064 
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1068 
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PAGE 

1070 
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1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 
1083 

1064 

1065 
1086 
1087 


24 CD.... 021 


CD,... CR15/UC 15 CARD READER EDIT #020 


/ 

/ EXIT REQUEST (FROM TASK ",,.,HEA") 
/ 


00464 

R 

200704 

R 

DAEX 

LAC 

(POOL) 

/RETURN REQUEST NODE TO POOL 

00465 

R 

060647 

R 


DAC* 

(Ki) 


00466 

R 

200564 

R 


LAC 

RN 


00467 

R 

060651 

R 


DAC* 

(R2) 


00470 

R 

120712 

R 


JMS* 

(IOCD) 

/DECREMENT TRANSF. PENDING COUNT 

00471 

R 

120713 

R 


JMS* 

(NADD) 







. IFUND 

UC15 







LAC 

(CC1) 

/CONDITION CODE 1 — CLEAR CONTROL. 






CRLC 








CAL 

DCPB 

/DISCONNECT 






• ENDC 








• IFDEF 

UC15 


00472 

R 

100625 

R 


JMS 

CLEAR 

/CLEAR DEVICE , WAIT FOR COMPLETION 

00473 

R 

440577 

R 


ISZ 

CCPB 

/MAKE CONNECT A DISCONNECT (BURP) 

00474 

R 

000577 

R 


CAL 

CCP6 

/DISCONNECT 






.ENDC 



00475 

R 

440570 

R 


ISZ 

PDVTA 

/POINT TO ASSIGN INHIBIT FLAG 

00476 

R 

705522 

A 


.INH 


/INHIBIT INTERRUPTS. 

00477 

R 

160570 

R 


DZM* 

PDVTA 

///ZERO IT 

00500 

R 

705521 

A 


• ENB 


///ENABLE INTERRUPTS. 

00501 

R 

000653 

R 

/ 

CAL 

(10) 

///EXIT 





/ 

/ABORT 

REQUEST. 



00502 

R 

777000 

A 

CDABRT 

LAW 

17000 

/MASK TU KEEP HALF *URO fU CHECK ABORT VALIDITY 

00503 

R 

510005 

A 


AND 

5 / X 

/HAS TO BE ZERO TO BE OK 

00504 

R 

740200 

A 


SZA 


/SO SKIP IF OK 

00505 

R 

600116 

R 


JMP 

£ YM6 

/ERROR RETURNED IF NOT 

00506 

R 

200567 

R 


LAC 

POVNA 

/MT THE DEQUE FOR THE ABORTED TASK 

00507 

R 

060647 

R 


DAC* 

(R1 


00510 

R 

200564 

R 


LAC 

RN 

/ABORT NODE 

00511 

R 

060651 

R 


DAC* 

(R2 


00512 

R 

120715 

R 

y 

JMS* 

(OMTti 

/THIS ROUIINE DUES ALL WORK 





/ 

/ NOW 

y 

WAS THIS 

ABORT 

FOR AN OUTSTANDING READ? 

00513 

R 

200564 

R 


LAC 

RN 

/2+RN IS STL NODE ADDR 

00514 

R 

340563 

R 


TAD 

XADJ 

/USE AS IDENTIFIER 

00515 

R 

721000 

A 


PAX 



00516 

R 

210002 

A 


LAC 

2,X 


00517 

R 

540556 

R 


SAD 

STLA 

/SAME ADDR FOR LAST READ DONE 

00520 

R 

751001 

A 


SKP iCLA 1CMA 

/SKIP IF SAME, SET UP -1 

00521 

R 

600423 

R 


JMP 

KEUCMP 

/NOPE, *E 1 RE DUNE, GO GIVE BACK NODE ETC. 

00522 

R 

240571 

R 


XOR 

RRN 

/NASTY, MAKES 0 IF NO READ NDrti IN PROGRESS 

00523 

R 

741201 

A 


SNA 1CMA 


/SKIP IF READ IN PROGRESS, RECREATE ITS NODE ADDR! 

00524 

R 

600423 

R 


JMP 

REQCMP 

/NOPE, JUST COMPLETE 

00525 

R 

060651 

R 


DAC* 

(R2 

/GIVE BACK NODE AND IOCD FOR SUSPENDED READ 

00526 

R 

200704 

R 


LAC 

(POOL 



CD.. , 


021 

CD,,,, 

, CR15/UC 1 5 CARD READEH EDIT #020 


00527 

R 

060647 

R 

DAC* 

(R1 



00530 

R 

120712 

R 

JMS* 

(IOCD 



00531 

R 

120713 

R 

JMS* 

(NADD 



00532 

R 

750001 

A 

CLA1CMA 


/SET READ NUT 

HERE SWITCH 

00533 

R 

040571 

R 

DAC 

RRN 







.IFUND 

UC1 5 







LAC 

CRLC 

(CC1 

/CLEAR DEVICE 






.ENDC 

.IFDEF 

UC15 



00534 

R 

100625 

R 

JMS 

CLEAR 

/AND CLEAR FOR 

UNICHANNEL 





.ENDC 




00535 

R 

600423 

R 

/ 

/ 

JMP 

REQCMP 

/DONE 





/ 

/ 

.EJECT 
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1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 


26 CO.... 021 CO.... CR1 5/UC 1 5 CAKO READER EDIT #020 


/ 

/ INTERRUPT SERVICE ROUTINE 


00536 

R 

000000 

/ 

A INT 

0 



00537 

R 

707762 

A 

DBA 



00540 

R 

040000 

R 

DAC 

START 

/SAVE AC 





.IFUND 

UC1 5 






CRRS 


/READ STATUS INTO AC. 





DAC 

EV1 

/SAVE FOR TASK LEVEL PROCESSING. 





AND 

(2) 

/CARD DONE? BIT 16. 





SQ|A 







JMP 

INTI 

/NO. DON’T CLEAR CARD OONE. 





DAC 

COON 

/PLACE 2 INTO CDON TO SAY DONE 





LAC 

(CC3) 

/YES. CLEAR CARD DONE. LEAVE 





CRLC 


/INTERR. AND DCH ENABLED. 




INTI 

CRPC 


/CLEAR ALL BUT CARD DONE. 





LAC 

(CC4) 

/ENABLE INTERRS. DISABLE DCH 





CRLC 


/NEEDEO SINCE CRPC DISABLES INTERRS 





• ENDC 







• IFDEF 

UC15 


00541 

R 

706124 

A 

CAPI 


/CLEAR FLAG FROM PDP-11 

00542 

R 

200407 

R 

LAC 

POST 

/ARE WE WANTING AN INTERRUPT 

00543 

R 

741200 

A 

SNA 


/SKIP IF YES/USE VALUE TO SET 

00544 

R 

600551 

R 

JMP 

INTAC 

/NO DO NOTHING 

00545 

R 

040554 

R 

DAC 

CDON 

/AS FLAG TO DISTINGUISH CARD DONE FROM CAL 

00546 

R 

040562 

R 

DAC 

TG 

/AND SET TG TO WAKE UP CAL LEVEL 





.ENDC 



00547 

R 

200711 

R 

LAC 

(401000) 

/DECLARE SIGNIF. EVENT. 

00550 

R 

705504 

A 

ISA 



00551 

R 

200000 

R INTAC 

LAC 

START 

/RESTORE AC. 

00552 

R 

703344 

A 

DBR 



00553 

R 

620536 

R 

JMP* 

INT 






.EJECT 



CD... 


021 

CD.... CR15/UC15 l 

CARO READER EDIT #020 


/ 

.IFUND UC15 

/SUBR. TO OUTPUT ERROR MESSAGES VIA ERRLUN, AC SHOULD CONTAIN 
/ADDRESS OF ERROR MESSAGE BUFFER. 

/ 

TTYOUT 0 


DAC 

TECPB4 

/SET CP B BUFFER ADDRESS 

CAL 

TE 

/TYPE ERROR MESSAGE. 

CAL 

WFECB 

/ WAITFOR EV. 

JMP* 

TTYOUT 



/ERROR MESSAGE BUFFERS AND TABLE OF PTRS.J 
/ 

ERRPT .+1 

ERRMG1 

ERRMG2 

ERRMG3 

ERRMG4 

ERRMG5 

/ 

/ 

/ 

ERRMG1 ERRMG2-ERRMG 1*1000/2+2 
0 

.ASCII •*♦* CD READER NOT READY'<15> 

ERRMG2 ERRMG3-EHRMG2*1 OOQ/2+2 
0 

.ASCII '*** CD ILLEGAL PUNCH’<15> 

ERRMG3 ERRMG4-ERRMG3* 1 Q00/2 + 2 
0 

.ASCII '*** CD PICK ERRUR ’ < 1 5> 

ERRMG4 ERRMG5-ERRMG4* 1000/2+2 
0 

.ASCII '*♦♦ CD DATA MISSED/PHOTO ERROR'<15> 

ERRMG5=, 

.EJECT 

/ ***** CARD COL TO ASCII TRANSLATION TABLE ***** 

/ 

/EACH TABLE ENTRY REPRESENTS VALID ASCII CARD PUNCHES WITH 
/THE FOLLOWING FORMAT: 

/ 

/BITS 0-5 SIXBIT ASCII CHARACTER. 

/BITS 6-17 CARD PUNCHES WITH THE FOLLOWING MAPPING: 

/ 

/BIT 6 = ZONE 12 
/BIT 7 = ZONE 11 
/BITS 8-17 = ZONES 0-9. 

/THE ASSEMBLER BUILDS THE TWOS COMPLEMENT OF BITS 6-17 VIA THE 
/7777S+1 OPERATION. THE TABLE IS ORDERED ACCORDING TO INCREASING 
/MAGNITUDE OF CARD PUNCHES ( CONSIDERED AS 12 BIT RIGHT JUSTIFIED 
/INTEGER VALUES). 

/EXAMPLE: ASCII '9» HAS FOLLOWING TABLE REPRESENTATION: 


Figure 4-2 (Cent.) 

XVM CR11 XVM/RSX Handler 
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CO.... 021 


CO..,. CR15/UC15 CARD READER EDIT #020 


1174 

1175 

1176 


710001 X7777+1 


1177 

1178 

/WHERE 0001 INDICATES ZONE 
/ 

9 PUNCHED ANI 

1179 

1180 
1181 

/GRAPHIC CHARACTERS FOR 026 
/ 

CDTABL CDTABL+1 

PUNCHES ARE 

1182 

400000 

/BLANK 

1183 

7 1 000 1 \7 7 77 + 1 

/9 

1184 

700002X7777+1 

/ 8 

1185 

670004\7 777 + 1 

/ 7 

1166 

CP 340006,420006 

/" (X) 

1187 

66Q010\7777+1 

/6 

1188 

CP 470012,750012 

/= ( ' ) 

1189 

650020X77 77 + 1 

/5 

1190 

CP 360022,470022 

/, (-.) 

1191 

640040X7777+1 

/ 4 

1192 

000042X7777+1 

/» 

1193 

630100\7777+1 

/ 3 

1194 

CP 750102,430102 

/# C = ) 

1195 

620200X7777+1 

/2 

1196 

CP 370202,720202 

/: (_) 

1197 

610400X7777+1 

/I 

1198 

601000X7777+1 

/o 

1199 

321001X7777+1 

/z 

1200 

31 1002X7777+1 

/i 

1201 

30 1 004\7777+ 1 

/X 

1202 

CP 451006,771006 

/? (%) 

1203 

271010X7777+1 

/w 

1204 

CP 431012,761012 

/> Ci) 

1205 

261020X7777+1 

/V 

1206 

CP 421022,371022 

/RIGHT i 

1207 

251040X7777+1 

/U 

1208 

CP 501042,451042 

/% (() 

1209 

241100X7777+1 

/r 

1210 

541102X7777+1 

/' 

1211 

231200X7777+1 

/s 

1212 

CP 731202,351202 

/) (;) 

1213 

571400X7777+1 

// 

1214 

552000X7777+1 

/- 

1215 

222001X7777+1 

/R 

1216 

212002X7777+1 

/Q 

1217 

202004X7777+1 

/P 

1218 

CP 462006,34200b 

/X t 6. 3 

1219 

172010X7777+1 

/U 

1220 

CP 762012,732012 

n c>) 

1221 

162020X7777+1 

/N 

1222 

CP 3 32022,512022 

/) C [) 

1223 

152040X7777+1 

/ M 

1224 

522042X7777+1 

/♦ 

1225 

142100X7777+1 

/L 


IS SiXBir ASCII 


IN PARENTHESES BELOW 


C") 
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1226 

442102X7777+1 

/$ 


1227 

1 32200X7777+1 

/K 


1228 

CP 722202,412202 

/i 

(S) 

1229 

122400X7777+1 

/j 


1230 

CP 534000,464000 

/& 

C + ) 

1231 

114001X7777+1 

/i 


1232 

104002X7777+1 

/H 


1233 

074004X7777+1 

/G 


1234 

CP 414006,36400b 

/* 

Cl ) 

1235 

064010X7777+1 

/F 


1236 

CP 744012,534012 

/ + 

CO 

1237 

054020X7777+1 

/E 


1238 

CP 354022,504022 

/( 

U ) 

1239 

044040X7777+1 

/D 


1240 

CP 514042,744042 

/< 

03 

1241 

034100X7777+1 

/C 


1242 

564102X7777+1 

/. 


1243 

024200X7777+1 

/ B 


1244 

CP 774202,334202 

/ 1 

C ?) 

1245 

014400X7777+1 

/ 2 


1246 

CDTLN1 , -1 -CDTA8L/2 



1247 

CDRALT 4402 



1248 

. ENDC 



1249 

.EJECT 




Figure 4-2 (Cont.) 
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CD. ., 


021 

CD, 

.... CR15/UC 1 5 CARD 

READER EDIT #020 

1250 





/ 




1251 





/ ***♦♦ 

INTERNAL VARIABLES **♦*♦ 

1252 





/ 




1253 

00554 

R 

000001 

A 

CDON 

1 


/CARO DONE FLAG, 

1254 

00555 

K 

000000 

A 

TST 

0 


/TEMP STORAGE FOR STATUS. 

1255 

00556 

R 

000000 

A 

STLA 

0 


/STL NODE. ADDR. 

1256 

00557 

R 

000000 

A 

ARE 

0 


/ABORT REG, EV. 

1257 

00560 

R 

000000 

A 

CDCQLC 

0 


/CARD COL COUNT USED IN TRANSLATING CARDS 

1258 

00561 

R 

000000 

A 

EV 

0 


/INTERNAL EVENT VARIABLE 

1259 

00562 

R 

000000 

A 

TG 

0 


/TRIGGER EVENT VARIABLE 

1260 

00563 

R 

000000 

A 

XADJ 

0 


/XR ADJUST CONSTANT TU SUBTRACT PAGE BITS 

1261 

00564 

R 

oooooo 

A 

RN 

0 


/ADDRESS OF THE REQUEST NODE PICKED FROM AUEUE 

1262 

00565 

R 

000000 

A 

CDRVAL 

0 


/BUFFER OVERFLOW FLAG WORD 

1263 

00566 

R 

oooooo 

A 

CDWDCT 

0 


/rtORD COUNT CHECK WORD SET FROM I/O REQUEST 

1264 





/ 




1265 






• IFUND UC15 


1266 





/ 




1267 





/ SAVE 

SOME ROOM 

FOR 

UC15, THESE ARE NOT NEEDED 

1268 





/ 




1269 





ICA 

0 


/INTERNAL BUFFER CURRENT ADDRESS POINTER 

1270 





CDR7CT 

0 


/SEVEN COUNTER USED BY THE 5/.7 ASCII PACKING ROUTINE 

1271 





CDR5CT 

0 


/COUNTER FOR 5/7 ASCII PACKING 

1272 





CDTPTR 

0 


/POINTER TO TRANSLATION TABLE 

1273 





CDTLEN 

0 


/TRANSLATION TABLE LENGTH 

1274 





CD7700 

770000 


/USED IN CARD TRANSLATION 

1275 





CDCPTR 

0 


/POINTER TO CURRENT INTEM IN TRANSLATION TABLE 

1276 





CDRWD3 

0 


// 

1277 





CDRWD2 

0 


// THREE WORD SHIFT REG. FOR 5/7 ASCII PACKING 

1278 





CDRWD1 

0 


// 

1279 





EV 1 

0 


/CARD READER EV. 

1260 





/ 




1281 






, ENDC 



1282 





/ 




1283 

00567 

R 

oooooo 

A 

PDVNA 

0 


/PHYSICAL DEVICE NODE ADDRESS 

1284 

00570 

R 

oooooo 

A 

PD VTA 

0 


/ADDRESS OF ADDRESS OF TEV IN PHY DEV NODE 

1285 

00571 

R 

777777 

A 

RRN 

777777 


/READ BEING PRUC. FLAG. -1 IF NOT BEING 

1286 








/PROCESSED. READ RED. NODE ADDRESS IF BEING 

1287 








/PROCESSED. 

1288 

00572 

R 

oooooo 

A 

TX12 

0 


/TEMP, FOR XI 2 STOR. 

1289 

00573 

R 

oooooo 

A 

TX13 

0 


/TEMP. FOR XI 3 STOR. 

1290 

00574 

R 

oooooo 

A 

TCWC 

0 


/TEMP. FOR REG. WC. 

1291 

1292 





/ 

.EJECT 




Figure 4-2 (Cont.) 

XVM CRll XVM/RSX Handler 


4-49 



Task Development 


PAGE 31 

CD.., 

>• 

021 

CO, 

,... CR15/UC15 CARD READER EDIT 

#020 


1293 





/ 




1294 





/ ***** 

CAL PARAMETER BLOCKS ***** 


1295 





/ 




1296 





/ 




1297 

00575 

R 

000020 

A 

WFTCPB 

20 

/WAIT FOR TRIGGER 

CPS 

1298 

00576 

R 

000562 

R 


TG 



1299 





/ 




1300 

00577 

R 

000011 

A 

CCPB 

11 

/CONNECT CP8 


1301 

00600 

R 

000561 

R 


EV 



1302 

00601 

R 

000015 

A 


15 

/LINENUMBER 


1303 

00602 

R 

000536 

R 


INT 

/ENTRY ADDRESS OF 

INTERRUPT 


1304 

1305 

1306 


• IFUND UC15 


1307 

/ UC 15 

SAVE SPACE BY 

LEAVING OUT SOME CAL'S 

1308 

/ 



1309 

/ 



1310 

/ 



1311 

WFECB 

20 

/WAIT FOR EV CPB 

1312 


EV 


1313 

/ 



1314 

DCPB 

12 

/DISCONNECT CPB 

1315 


0 

/EV ADDRESS 

1316 


15 

/INTERRUPT LINE NUMBER 

1317 


INT 

/CURRENT INTERRUPT TRANSFER ADDRESS 

1318 

/ 



1319 

TE 

2700 

/WRITE TO ERRLUN. 

1320 


EV 


1321 


ERRLUN 

/WRITE OUT THE ERROR MESSAG TO THE DESIRED 

1322 



/TELETYPE 

1323 


2 


1324 

TECPB4 

XX 


1325 

/ 



1326 

MTCPB 

13 

/MARK TIME REQ. 

1327 


EV 


1328 


12 

/ 1 2 UNITS. 

1329 


1 

/UNIT (TICK). 

1330 

/ 



1331 

WFCRCB 

20 

/WAIRFQR CR INTERRS. 

1332 


EV 1 


1333 

/ 



1334 

WFCRCD 

20 

/WAIT FOR CARD DONE FLAG TO BE SET. 

1335 


CDON 


1336 

/ 



1337 


. ENDC 


1338 

/ 



1339 

/ 



1340 


• IFDEF UC1 5 


1341 

/ 



1342 

/ 1/0 

INFORMATION , 

ROUTINES , ETC. FOR UC15 

1343 

/ 



1344 

/ TCB 

(TASK CONTROL 

BLOCK) TELLING PDP-11 TO SEND US A CARO 


Figure 4-2 (Cont.) 

XVM CRll XVM/RSX Handler 
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CO.., 

'• 

021 

CD, 

.... CR15/UC15 CARD READER EDIT #020 

1345 





/ 



1346 

00603 

R 

026401 

A 

TCB 

APISLT+40Q+APILVL /TELL PDP-11 WHERE TO COME BACK 

1347 

00604 

R 

000005 

A 


DEVCOD 

/PIREX CODE FOR CD; THE 200 BIT S ATS 

1348 





/ 


/WE ARE NOT TO BE SPOOLED. 

1349 

00605 

R 

000000 

A 

EVU 

0 

/EVENT VARIABLE FROM PDP11 TO US 

1350 

00606 

R 

000000 

A 


0 

/DUMMT, HIGH PORTION OF 10 BIT 

1351 





/ 


/ADHESS. NOT PRESENTLY USED 

1352 

00607 

R 

000001 

R 


IBUF 

/POINTER TO BUFFER TO PUT CARD IN 

1353 

00610 

R 

000000 

A 


0 

/UNIT #; FOR FUTURE GENERATIONS, 

1354 





/ 



1355 





/ TCB 

TO TELL 

PDP11 TU CLEAR OUT CARD READER DEVICE 

1356 





/ 



1357 

00611 

R 

000000 

A 

TCBK 

0 

/THIS WORKS, SEE PIREX FOR INFO. 

1358 

00612 

R 

002600 

A 


DEVCOD& 177*400+200 

1359 

00613 

R 

000000 

A 

EV1 IK 

0 

/EVENT VARIABLE FOR CLEAR OPERTAION 

1360 





/ 



1361 





/ POINTERS TO 

TCB, TDBK 

1362 





/ 



1363 

00614 

R 

000603 

R 

TCBP 

TCB 


1364 

00615 

R 

000611 

R 

TCBKP 

TCBK 


1365 





/ 



1366 





/ 



1367 





/ CD I U 

IS THE 

SUBROUTINE TO SEND A TCB TO THE PDP-11 

1368 





/ 



1369 





/ CAL 

WITH THE 

ADRESS OF THE TCB IN THE AC 

1370 





/ 



1371 

00616 

R 

oooooo 

A 

CDIU 

0 


1372 

00617 

R 

140605 

R 


DZM 

EV11 /CLEAR ONE COMING FROM PDP-11 

1373 

00620 

R 

140613 

R 


DZM 

EV11K /AND THE OTHER ONE, IN CASE If USED 

1374 

00621 

R 

706001 

A 


SIOA 

/SKIP IF PDP-11 CAN TAKE REQUEST 

1375 

00622 

R 

600621 

R 


<JMP 

.-1 

1376 

00623 

R 

706006 

A 


LIOR 

/TELL If TO DO TCB WHOSE ADDRESS IN AC 

1377 

00624 

R 

620616 

R 


JMP* 

CDIU /THAT'S ALL THERE IS TO IT. 

1378 





/ 



1379 





/ 



1380 





/ CLEAR CLEARS SWITCHES, AND CO IN PIREX, WAITS FOR COMPLETE 

1381 





/ 



1382 

00625 

R 

oooooo 

A 

CLEAR 

0 


1383 

00626 

R 

140407 

R 


DZM 

POST 

1384 

00627 

R 

140554 

R 


DZM 

CDON 

1385 

00630 

R 

200615 

R 


LAC 

TCBKP /TCB FOR CLEAR 

1386 

00631 

R 

100616 

R 


JMS 

CDIU 

1387 

00632 

R 

000634 

R 


CAL 

WFCLER /WAIT FOR CLEAROUT 

1388 

00633 

R 

620625 

R 


JMP* 

CLEAR 

1389 





/ 



1390 

00634 

R 

000020 

A 

WFCLER 

20 


1391 

00635 

R 

000613 

R 


EV llK 


1392 





/ CDUC 

EC EXAMINES NEGATIVE EVENT VARIABLES FROM PIREX 

1393 





/ 



1394 

00636 

R 

744020 

A 

CDUCEC 

CLL1RAR 

/CLEAR OTHER TOP BIT 

1395 

00637 

R 

340716 

R 


TAD 

C600000 /SIGN EXTEND TU PDP-15 WORD 

1396 

00640 

R 

540717 

R 


SAD 

C 777001 /THIS ONLT 'LEGAL' VALUE AT PRESENT 


Figure 4-2 (Cont.) 

XVM CRll XVM/RSX Handler 
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CD.., 

•• 

021 


CD,., 

. CR15/UC15 

CARD HEADER EDIT #020 

1397 

00641 

R 

600171 

R 


JMP 

RETR* 

/THAT SA*S PI REX IS UUT OF NUDES, 

1398 





/ 



/WE SHOULD TRY AqAIN TO GET ONE 

1399 

00642 

R 

100426 

R 


JMS 

SEVRN 

/OTHERS, RETURN NEG VARIABLE AS EV 

1400 





/ 



/THIS IS SLIGHTLY FLAKEY, BUT WE 

1401 





/ 



/REALLY SHOULD NEVER GET HERE1 i J ? 

1402 

00643 

R 

777777 

A 


LAW 

-1 

/SAY NO MORE READ OUTSTANDING 

1403 

00644 

R 

040571 

R 


DAC 

RRN 


1404 

00645 

R 

600060 

R 


JMP 

PD 

/BACK TO LOOK FOR MURE WORK 

1405 





/ 




1406 





/ 




1407 






• ENDC 



1408 



000000 

R 


.END 

START 



00646 R 000252 A *L 

00647 R 000101 A *L 

00650 R 000054 R *L 

00651 R 000102 A + L 

00652 R 000123 A *L 

00653 R 000010 A + L 

00654 R 000562 R *L 

00655 R 070000 A *L 

00656 R 000337 A *L 

00657 R 000777 A *L 

00660 R 000024 A »L 

00661 R 000025 A *L 

00662 R 000026 A *L 

00663 R 000036 A *L 

00664 R 000017 A *1 

00665 R 000325 A *L 

00666 R 000332 A *L 

00667 R 200007 A *L 

00670 R 000103 A *L 

00671 R 000104 A *L 

00672 R 000342 A *L 

00673 K 000012 A *L 

00674 R 000013 A *L 

00675 R 000003 R +L 

00676 R 104611 A *L 

00677 R 000340 A *L 

00700 R 000445 A *L 

00701 R 001005 A *L 

00702 R 000377 A + L 

00703 R 000020 A *L 

00704 R 000240 A *L 

00705 R 000273 R *L 

00706 R 000177 A *L 

00707 R 700000 A »L 

00710 R 064000 A *L 

00711 R 401000 A *L 

00712 R 000345 A *L 

00713 R 000107 A *L 

00714 R 000060 A *b 

00715 R 000361 A *L 


PAGE 34 CD,... 021 CD,... CR1S/UC15 CARD READER EDIT #020 

00716 R 600000 A *L 

00717 R 777001 A *L 

S1ZE=00720 NO ERROR LINES 


Figure 4-2 (Cont.) 

XVM CRll XVM/RSX Handler 
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4. 6. 3. 3 Requests - Following handler initialization, requests can be 
processed. Note that the request dequeuing algorithm (see Figure 4-2 
lines 352-407) is executed whenever Q-l/O places a request node in the 
list associated with the handler's PDVL node or whenever an interrupt 
for the device has occurred on the XVM. The latter condition implies 
that the handler's interrupt service routine (Figure 4-2, lines 
1091-1120) will set the trigger event variable on each interrupt. 


4. 6. 3. 4 ABORT Requests - Because of the nature of the UNICHANNEL 
configuration, ABORT requests should be handled on a high priority 
basis. Hence, whenever the trigger event variable is set, the handler 
should first check to see if an ABORT request has been issued. (Figure 
4-2, lines 353-357) . This condition can be tested using the following 
algorithm: 


LAC TG 

RTL 

SPA 

JMP PICK 


/GET THE TRIGGER EVENT VARIABLE INTO THE AC 
/MOVE THE ABORT BIT INTO BIT ZERO OF THE AC 
/SKIP IF ABORT BIT IS NOT SET 
/ABORT REQUEST-DEQUEUE AND PROCESS IT 


/NOT AN ABORT REQUEST-CHECK OTHER 

/REASONS FOR HAVING TRIGGER EVENT VARIABLE SET. 


4. 6. 3. 5 Interrupts - If the trigger event variable was not set due to 
an ABORT request, either PIREX has issued an interrupt or a new 
request for I/O is pending. Before checking for new requests, the 
handler should see if an interrupt occurred (see Figure 4-2, lines 
359-362) . If it did, the handler should check to see if an interrupt 
was requested. Unrequested interrupts should be ignored but the 
handler should finish processing the outstanding I/O request if the 
interrupt indicates that I/O is now complete. 

If the trigger event variable was not set due to an interrupt and no 
I/O is being processed by PIREX, the handler can pick off the new I/O 
request and begin processing it (see Figure 4-2, lines 368-407) . 

On ABORT requests, the handler should determine if I/O is in progress 
on the PDP-11 for the task being aborted (see Figure 4-2, lines 
1058-1067) . If so, the handler should issue a "clear device directive" 
to PIREX to stop the I/O in progress (see Figure 4-2, lines 1073-1080) . 
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The "clear device directive" must also be issued whenever a DISCONNECT 
and EXIT request from the MCR function REASSIGN is processed (see 
Figure 4-2, line 1033). 


4. 6. 3. 6 READ and WRITE Requests - READ and WRITE request processing 
usually involves the following procedures: 

1. Checking the range of the issuing task's TCB and buffer. 

2. Making data conform to PDP-11 standards for WRITE requests 
and XVM standards for READ requests. 

3. Sending a TCB directive to PIREX. 

4. Waiting for PIREX to complete the operation initiated by 
sending the TCB directive. 

5. Checking the event variable sent back to the handler by 
PIREX. 

6. Setting data into the issuing task's request buffer for READ. 

7. Sending an event variable to the task which initiated the 
request for I/O. 

The following is a brief outline of the procedure used by the UNI- 
CHANNEL Card Reader handler when it processes a read request. (Refer 
to Figure 4-2) . 


1. Dequeue the I/O request node (lines 352-407) 

2. Check the range of the task TCB and buffer (lines 440-465) . 

3. Clear the TCB event variable (line 1372). 

4. Clear the "I/O Done" flage (line 642). 

5. Set the "Interrupt Expected" flage (lines 640-641) . 

6. Issue the READ TCB to the Card Reader Driver in PIREX 
(lines 1374-1376) . 

7. Wait for the Trigger Event Variable (line 352). 

8. When the Card Reader Driver has completed the request, the 
Card Reader handler interrupt service routine sets the 
Trigger Event Variable and the "I/O Done" flage (lines 
113-114). 

9. The handler then checks the Event Variable sent back by 
PIREX (lines 653-656). 

10. Convert the data to XVM card format and transfer it to the 
task's buffer (lines 670-879). 
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11. Set the task's Event Variable (lines 880-881). 

12. Wait for the next request (line 352) . 

Note that in order for a UNICHANNEL handler to function properly, the 
PDP-11 must be able to access the handler's internal buffers and TCBs. 
Hence, all locations within these TCBs and buffers must be within the 
common memory accessible to the PDP-11.* Also, note that the XVM/RSX 
POLLER task should be modified to interrogate PIREX concerning the 
status of the new device. 

4.7 BUILDING A XVM/PIREX DEVICE DRIVER 

A device driver is a software routine that performs rudimentary I/O 
functions. PIREX device drivers typically operate in conjunction with 
more complex XVM handlers. While a rudimentary device driver is typical, 
a PIREX task can be as complex as a full handler. The PIREX XY driver 
is a good example of a very complex driver. The PIREX line printer 
driver, a typical rudimentary driver, will be used to examine the 
construction of a device driver. 

4.7.1 General Layout 

The general layout of a driver task (see Figure 4-3 and Section 4.5) 
consists of: 

1. Entries on PIREX internal lists. 

2. A stack area which will be used when the task is executing. 

3. The address of a device control register. This is used to 
stop the device during STOP I/O requests. Dummy addresses 
are used for tasks which are not device drivers. 

4. A 2-word busy/idle switch used to store the caller's 18-bit 
TCBP . When the busy/idle switch is zero, the routine is 
not busy. 

5. The task request setup/processing section. 

6. The task interrupt processing section, if the task is a 
device driver. 


^Depending on Driver task design the buffers for an NPR device may 
not have to be in common memory. 
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The task request setup/processing section obtains the parameters from 
the TCB and uses them to set up the referenced device or process the 
request. Entry into this section is made from the ATL scanner or 
DEQU with the current task stack area active at the priority level 
associated with that task. All general purpose registers are avail- 
able for use by the current task at this time. The TCBP is stored in 
the busy/idle switch preceding the request section and signifying that 
the task is busy. Once some operation is underway or completed, the 
task returns to the ATL scanner by issuing the "SEXIT" macro instruc- 
tion (refer to Section 4. 7. 2. 4). 

If the task is a device driver, the interrupt section is called at the 
completion of an I/O request. All device interrupt priority vectors 
specify priority 7. This is done to allow the interrupt routine to 
save the general-purpose registers on the current task stack pointer 
and lower the system to the priority level of this task. (The interrupt 
section accomplishes this by calling R.SAVE.) 

Control is transferred to the driver, which then checks for errors, 
stores status information into the TCB, clears the device busy switch 
(the driver becomes idle when the busy switch is cleared) and sends 
an optional interrupt (via SEND15, see Figure 3-6) to the system in- 
forming it that the request has been processed. The driver then trans- 
fers control to the routine DEQU (see Figure 3-7) to determine if more 
requests are in its TRL . If not, control is transferred to the ATL 
scanner, after saving the task stack pointer and setting the task 
status to the wait state in the ATL node. 

4.7.2 Task Program Code 

The task program code is necessary to carry out the task's function. 

4.7. 2.1 Code Sections - The program code section of a device driver 
is composed of three or four of the following subsections (refer to 
Figure 4-3) . 1 


^Page number refers to the page number at the top of the PIREX 
listing . 
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PIREX.142 MACH XVH V1A000 

LINE PRINTER DRIVER FOR LPli/15 


4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 


.SBTTL 
.EVEN 

9 

177514 LPC$R»177514 
177516 L.PRUF* 1 773 1 6 
000606 LP$A*6 
0000 1 7 LPT0T*12 
000014 LPSTATR14 
001264 LPp8TiLP.EST+4 
001282 UPt)NNPLP.EST^2 
000004 LPtCoDM 
006414 LPfOP»6414 


PAGE 28 

UNE PRINTER DRIVER FOR LP11/15 


MOOR IN PIRfcX ERROR TABLE FOR NOT REAOY 
9 AODR FOR UNIT 0 (FOR NOW 0) 

>LINE PRINTER TASK CODE 

/EOF CODE (DATA) FOR SPOOLING 


HAKE THE PDP-1S DO ALL THE WORK. THE POP-11 SIHPLY GET S A COUNT 

OF CHARACTERS TO PRINT OUT. WE TREAT THE CONTROL CHARACTERS 

12,15, AND 14 ONLY, A HlNUS CHARACTER IS CONVERTED INTO HINUS 

THAT NUHBER OF SPACES. NOTE ALL REAL ASCII CHAR'S HAVE A ZERO LEADING BIT! 

EACH LINE HAS AN IHPLIEO CARRIAGE RETURN THAT IS ADOED BY THE DRIVER 

RATHER THAN SENT BY THE POp-lS 

NOTE, IF HEADER WORD OF BUFFER HAS 400 BIT SET, IT IS 
IMAGE MODE, AND WE NIETMER BUT ON LF OR CRU 

CALL TO ROUTINE HAS ADDRESS OF TCB IN HANDLER BUSY (IDLE) REGISTER 


33 

.6794 


.BLOCK 

6. ♦£ AESTK*4 


34 

07094 

177514 

.WORD 

LPCSR 

9 ADDRESS OF LPCSR CONTROL STATUS 

35 




1 REGISTER USED TO RESET DEVICE 

36 





1 ON STOP I/O OPERATIONS. 

37 

07090 

06020* 

.WORD 

0 

9 TCB POINTER (EXTENDED BITS) 

38 

39 

40 

41 

42 

07060 

000002 

9 

LPl 

.WORD 

0 

1 TCB POINTER (LOWER 16 BITS), THIS 
9 WORD IS USED AS THE IDLE /BUSY 
9 SWITCH FOR THE DEVICE DRIVER. 

07062 




43 

07062 

003057 

172300 

CLR 

LP.CL 

9 CLEAR OUT ANY PENDING TIMER REQUESTS FOR US. 

44 

07066 

015700 

177756 

MOV 

LP-2, R0 

9 SETUP R0 TO POINT TO TCB 

45 

07072 

005000 

000014 

CLR 

LPST AT (R0) 

? CLEAR STATUS FLAG IN TCB 

40 

07070 

016001 

000010 

MOV 

LPSA*2(R0) ,Ri 

9 GET BUFFER START ADDRESS 

47 

07102 

005700 

000000 

TST 

LPSACR0) 

>DQNIT RELOCATE ADDRESS IF BlT 15 

46 

07100 

100A03 

BMI 

IS 

9 IS ON. 

49 

07110 

006301 

ASL 

R| 

> RELOCATE ADDRESS (WORD TO BYTE POINTER) 

50 

07112 

000701 

170722 

ADD 

MEMS I Z , N 1 

9 (♦ 11 '3 OWN LOCAL MEMORY) 

31 

07110 

112102 16s 

MO VB 

(R 1 ) * , R2 


52 

07120 

042707 

177400 

BIC 

61 77400 , R2 

9 CLEAR OUT TOP OF REGISTER 

53 

07124 

112707 

000015 

000010 

MO VB 

#15, LPEOL 

9 DEFAULT , ASCII, HERE IS <CR> 

54 

07152 

002701 

000002 

ADD 

62, R1 9 INC Rl 

BY 2 (BR» l 34 ) 

55 

07130 

112721 

000012 

MO VB 

612, (Rl)* 

9 DEFAULT , PRECEED LINE WITH LINE FEED 

36 

07142 

103067 

000575 

CLRB 

LPERWT 

> RESET ERROR WAIT SWITCH 

37 


, IFNDF 

SN09W 

>661 2466 I F INOSW, DISABLE ALL SWITCH INTERACT 

58 

07140 

032767 

140000 

171672 

BIT 

6140000, SPOLSW 

9 SPOOLER ENABLED & RUNNNG 

59 

07184 

001427 

BEG) 

06 

> GO TO DISABLE HALT AT EOF (BR-135) 





Figure 4 

-3 





UNICHANNEL LP 

Driver 
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PXREX.142 

MACli 

XVM V 1 4002 

1 PAGE 28* 


UNI PRINTER driver POR LRU/13 



60 

07186 

022711 

006414 


CMP 

*LPEOF,CRl> 

/ EOF RECORD? 

61 

07160 

001421 


BEQ 

58 

/CURRENT TCB CONTAINS EOF CBH-133) 

62 

07164 

103767 

000554 


TSTB 

LPEFWT 

1 WA8 LAST RECORD AN EOF ? CBk-138) 

63 

07170 

001423 


BEQ 

28 

/ NO - BRANCH TO NORMAL CODE (BR-138) 

64 

07178 

105067 

000546 


CLPB 

lpefwt 

I YES • CLEAR SNITCH FOR NEXT USE (BR-139) 

65 

07176 

032767 

000002 

170364 


BIT 

*2,SW 

MS SNITCH 2 UP ON U CONSOLE ? (6R-13S) 

66 

07204 

001413 


BEQ 

28 

INO - RESUME NORMAL CODE (BR* 139) 

67 

07206 

012767 

007626 

172154 


MOV 

*LPECHK,LP,CL+2 

1 YES - SET UP CLOCK (BR-13S) 

66 

07214 

012707 

000170 

172144 


MOV 

*170,LP,CL 

MHO SECOND RETRY (BR-133) 

69 

07222 



SEXIT 

WAITST 

/EXIT TO SYSTEM 


07222 

000004 


I0T 




07224 

000 


.BYTE 

0 , WA IT8T 



07226 

002 





70 

07226 

105267 

000512 

3$ I 

INCB 

LPEFWT 

/ SET EOF FLA6 FOR NEXT TCB (bR.133) 

71 

07232 

000402 


BR 

28 

/RESUME normal CODE (BR-13S) 

72 

07234 

105067 

000304 

68 i 

CURB 

LPEFWT 

/ CLEAR FLAG - IN CASE SPOOLER JUST TURNED OFF 

73 




,6NDC 



74 

07240 

132761 

000001 

177773 

28 1 

BITB 

*1*-3CR1) 

/400 BIT SET IN HEADER IF IMAGE 

75 

07246 

001403 


BEQ 

38 

MOT IMAGE, CHECK FORMS CONTROL 

76 

07280 

103087 

000466 


CLRB 

LPEOL 

MMAGE, DON'T FORCE CR AFTER MESSAGE 

77 

07284 

000410 


BR 

48 

/ALLOW ALL FORMS CONTROL 

76 

07286 

1227 i « 
000014 

38 i 

CMPB 

*14, CR1) 

/FIRST CHAR FORM FEED? 

79 

07262 

001403 


BEQ 

4$ 

/YES, DON'T ADD LINE FEED TO LINE 

60 

07264 

122711 

000015 


CMPB 

*15, CR1) 

/FIRST CHAR CARRIAGE RETURN 

81 

07270 

001402 


BEQ 

48 

/YES, DON'T ADD LINE FEED TO LINE 

62 

07272 

005301 


DEC 

R1 

/MOVE POINTER BACK TO LINE FtEO 

83 

07274 

003907 


INC 

R2 

/COUNT ADDITION OF LF TO BUFEER 

64 

07276 

010267 

000434 

48 i 

MOV 

R2 , LPBTCT 

/ SAVE COUNT 

85 

07302 

010167 

000420 


MOV 

R 1 , LPBUFF 

/SAVE POINTER 

86 

07906 

105967 

000426 


CURB 

LPT AB 


87 

07312 

103767 


TSTB 

LPBUF 

/HISTORY SAYS THIS MERE 



170200 





86 

07316 

052767 

000100 

170170 


BIS 

* 1 00 , LPCSR 

/ENABLE INTERRUPTS TO LP GOING 

69 

07324 



SEXIT 

WAITST 

/EXIT IN A WAIT STATE AND RESCAN 


07324 

000004 


IOT 




07326 

000 


.BYTE 

0, WAITST 


90 

91 

92 

07327 

002 

> 

1 



/ THE ATL NOW, 


Figure 4-3 (cont) 
UNICHANNEL LP Driver 


4-58 



Task Development 


PI REX v 1 42 MACH XVM V1A000 PAGE 29 

CINE PRINTER DRIVE* FOR LPll/15 


1 


/ 

LP INTERRUPT ENTRANCE 

2 

3 007330 

4 007330 

04276? 

/ 

LPrNTI 

BIC 

4100, LPCSR 

5 007330 

000100 

170156 

004007 


JSR 

R0 , R » SAVE 

6 007342 

7 007344 

172444 

000004 

016700 


4 

MOV 

L F " 2 , R 0 

6 007350 
g 

17/510 

001511 


BEQ 

LPXT 

10 07352 

003767 


TST 

LPCSR 

11 07356 

170136 

100454 


BMI 

LPERR 

12 07360 

005067 


CLR 

LP . CL 

13 07364 

14 07304 

17200? 

105707 

lplopi 

TSTB 

LPCSR 

15 07370 

170124 

100040 


BPL 

LPSTIL 

16 07372 

105707 


TSTB 

LPTAB 

17 07370 

000342 

100421 


BMI 

4S 

IS 07400 

005307 


DEC 

LPBTCT 

19 07404 

000332 

100424 


BMI 

5S 

20 07406 

105777 


TSTB 

0LPBUFF 

21 07412 

000322 

100400 


BMI 

6S 

22 07414 

117707 


MOVB 

#LPBUFF,LPBUP 

23 07422 

000314 

170074 

005267 


INC 

lpbuff 

24 07426 

000300 

000756 


BR 

LPLOP 

25 

20 07430 

117707 

/ 

esi 

MOVB 

PLPBUFF, LPTAB 

27 07430 

000300 

000302 

005207 


INC 

LPBUFF 

26 07442 

000272 

105267 

4Sl 

I NCB 

LPTAB 

29 07440 

000272 

112707 


MOVB 

*40,LPBUF 

30 07454 

000040 

170042 

000743 


BR 

LPLOP 

31 07450 

105707 

35 1 

TSTB 

lpeul 

32 07462 

000200 

001403 


BEQ 

7 S 

33 07464 

116707 


MOVB 

LPEQL , LPBUF 

34 07472 

000252 

170024 

005202 

7*1 

INC 

LPSTATCR0) 

35 07470 

000014 

000421 


BR 

LPXIT 

36 

37 07500 

052707 

/ 

l.PST IL 1 

BIS 

4100, LPCSR 

36 07506 

000100 

170000 

000413 


BR 

LPXIT1 

39 

40 07510 

105267 

/ 

LPFRPI 

I NCB 

LPERWT 

41 07514 

000227 

112707 


MOVB 

44 , LPEST 


0000)04 

171543 


/DISABLE LP INTERRUPT 

/ SAVE REGISTERS 

/TASK CODE 
/GET TCB POINTER 

/IGNORE IF ITS ALREADY BEEN STOPPED BY 
/ A STOP I/O REQUEST. 

/CHECK FOR ERROR 

/YES 

/CLEAR OUT ANY PENDING TIMER REQUEST FOR US. 

/IS PRINTER CURRENTLY GOING? 

/YESI FORGET CHAR FOR NOW 
/IN TAB EXPANSION TO SPACES? 

/YES 

ZOECR CHAR COUNT 

/WENT TO -1, MAKE CR TO FINISH LINE 
/MINUS BYTE IS TAB EXPANSION COUNT 

/IS ONE, GO SET UP 

/STICK CHAR INTO LINE PRINTER BUFFER 

/HOVE POINTER TO NEXT CHAR 
/GO DO NEXT 

/SET UP TAB COUNT (MINUS, A LA 15) 

/COUNT A SPACE FOR THIS TAB 
/SPACE TO LINE PRINTER 

/GO DO NEXT 
/IMAGE OR ASCII 

/IMAGE, DON 1 T FORCE <CR> 

/ASCII, HERE IS CARRIAGE RETURN> 

/SET REV TO GOOD COMPLETION 

/ENABLE INTERRUPT ON LP 

/RESTORE R0-R5 AND RETURN 
/SET ERROR WAIT $N. 

/ERROR CODE l, NOT READY TO TABLE 


Figure 4-3 (cont) 
UNICHANNEL LP Driver 
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PIREX.142 MACH XVM V1A000 PAGE 29+ 

LINE PRINTER DRIVE* FOR LPll/15 


42 

0752J 

012767 

007649 

171640 

LPFRP1* MOV 

#LPCHK,LP. 

43 

07530 

012767 

000170 

171630 

MOV 

W170,LP.CL 

44 

07536 

000167 

173616 

LPXlTlt JMP 

DEQU1 

49 



/ 


46 

07542 

105067 

171916 

LPxITI clrb 

LPE5T 

47 

07546 

052767 

000340 

170222 

BIS 

#340, PS 

46 

07554 

005067 

167734 

CLR 

LPC5R 

49 

07560 

012701 

000001 

MOV 

#1 # R 1 

50 

07564 

016700 

177270 

MOV 

LP-2* R0 

5 1 

07970 


CALL 

SEND 1 5 


07570 

004787 

173626 

J5R 

PC , SEND 1 5 

52 

07574 


LPxTt 


53 

07574 

052767 

000340 

170174 

BIS 

#340, PS 

54 

07602 

005067 

17723? 

CLR 

LP-2 

55 

07600 

005067 

177244 

CLR 

LP-4 

56 

07612 

012703 

00706? 

MOV 

#LP*R3 

57 

07616 

012701 

00145? 

MOV 

#LP • LH » R 1 

56 

07622 

000167 

173450 

JMP 

DEQU 

59 



/ 


50 



/ 


61 



/ 


62 



/ 

SUBROUTINE 

63 



/ 


64 



/ 


65 

07620 

005767 

177226 

LPFCHKl TST 

LP-2 

66 

07632 

001437 

BEQ 

LPCX 

67 

07634 

032767 

BIT 

#2 , S W 


00000 ? 

167726 


MOOR. FOR TIMER REO, 

/ 2 3ECS. IN TICKS (OCTAL) 
/SCHEDULE NEXT TASK 

/indicate successfull operation 
/inhibit INTERRUPTS 

/SHUT DOWN DEVICE 
/TELL CALLER DONE 
/GET TCBP 
/TELL CALLER DONE 

/INHIBIT INTERRUPTS 
/CLEAR BUSY ( IDLE ) FLAG 

/DEQUEUE ANOTHER REQUEST IF ANY 
/ IN THIS DRIVERS DEQUE. 


TO FIELD CLOCK COUNT-DOWN 

/HAVE WE BEEN DISABLED ? (BK*135) 

/YES - RETURN TO CLOCK - NO RETRY (BR*135) 
/NO - IS SWITCH 2 STILL UP ? (BR-135) 


Figure 4-3 (cont) 
UNICHANNEL LP Driver 
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PIREX.142 MAC 1 1 XVM V1A000 PA GE 29 + 

LINE PRINTER OrIVEp FOR LPli/15 


68 

07642 

00103, 


BNE 

LPCXIT 

/YES • SET UP CLOCK RETRY 

CBK*135) 

69 

07644 

000400 


BR 

LPCLK 

/NO « SET UP RETRY OF TCB 

(BR-135) 

70 

07640 

008707 

177*08 

LPCHK1 

TST 

IP-2 

/HAVE WE BEEN DISABLED 


71 

07652 

0014*7 


BEQ 

LPCX 

7 IF- YES, EXIT, LEAVING CLOCK OI5ABLED 

72 

07654 

008787 
1 87 834 


TST 

LPCSR 

/DOES ERROR STILL EXIST ? 

(Bk-135) 

S 

07660 

10042? 


BMI 

LPCXIT 

/ YES - SET UP CLOCK RETRY 

(BK*135) 

07662 

01270* 

00001? 

LPcLKI 

MOV 

6LPTCDD+2 1 R2 

/SCAN ATL FOR QUR NODE (Br 

*135) 


75 

07660 

018*01 

001144 


MOV 

ATLNP (R2) # R 1 



76 

07072 

012787 


MOV 

RLPiLP-12 

1 RESTART AT BEGINNING OF REQ. 



00708* 

177180 






77 

07700 

042761 


BIC 

#17,A.TS(R1) 

Z R 1 POINTS TO OUR NODE # MAKE RUNNABLE 



000017 

000008 






78 

07700 

012761 

007*34 

000004 


MOV 

RLP-26,A # SPC«n 

/ SET UP STACK POINTER 


79 

07714 

008*0* 


ASR 

R2 

/MAKE BYTE AOORESSING 


60 

07710 

116*87 

001128 

177128 


MO VB 

LEVEL (R2) f LP*10 

/ SET UP PS 



07724 

000207 


RTS 

PC 

/RETURN TO CLOCK (BR-135) 


62 

07726 

012710 

000170 

LPCXITI 

MOV 

61 70, (R0) 

ZR0 POINTS TO TIMER ENTRY 


63 

07732 

000207 

LPCXl 

RTS 

PC 

I RETURNS TO CLOCK 


64 



1 





85 

07734 

000000 

LPRUFFI 

.WORD 

0 

/BUFFER POINTER 


60 

07736 

000000 

LPRTCTI 

.WORD 

0 

/BYTE COUNT 


87 

07740 

000000 

LPTARI 

.WORD 

0 

/TAB LOCATION 


68 

07742 

000 

lpeol* 

.BYTE 

0 

/0 IF IMAGE, IS IF ASCII 


89 

07743 

000 

LPFRWTI 

.BYTE 

0 

/MAKE EVEN 


90 

07744 

000 

LPPFWTI 

.BYTE 

0 

/EOF BAS LAST RECORO FLAG 

CBK-135) 

91 



.EVEN 


/ MAKE EVEN CBR-135) 


92 



Z 


Figure 4-3 

(cont) 



UNICHANNEL LP Driver 
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1. Equates# device locations# etc. (Page 28# lines 7-15). 

2. Initialization and I/O request section (Page 28# lines 1-90)? 
used to set up and initiate a device operation. 

3. Interrupt section# used to respond to the completion of a 
device operation and to check for errors (Page 30# lines 1-59) . 

4. An optional clock wake-up section? used to check the correc- 
tion on an error condition on the clearing of a wait-at-end 
of file condition and either retry the offending operation 
or set another wake-up call (Page 29# lines 61-91) . 


4. 7. 2. 2 Task Entry - Initialization - When the task is initially 
called# the user stack area is reset. Execution normally begins at 
the first location of the program code. At this point# all general 
purpose registers are available for use by the task. If the task is 
interrupted by a higher priority task before completing the request# 
execution will resume at the point of interruption when program control 
is returned. Various steps in device driver (Figure 4-3) initiali- 
zation include: 1 


1. Clearing out any pending timer requests (if the task uses 
wakeup services). (Page 28# line 43). 

2. Setting up a pointer to the data buffer and relocating the 
pointer value if it comes from the XVM (Page 28# lines 
44-50# 74-87). 

3. Various device dependent operations (Page 28, lines 51-56). 

4. Detect and initiate halt at end of file procedure (Page 28# 
line 57-73). 

5. Start up the device (Page 28, line 88). 

6. Exit in a WAIT state (Page 28# line 89) until reawakened by 
an interrupt (see Section 4. 7. 2. 4). 


4. 7. 2. 3 Interrupt Processing - An interrupt transfers control to the 
device driver interrupt section at priority 7. Interrupt processing 
(Figure 4-3) is composed of the following steps: 


1. Disable the device interrupt (Page 29# line 4). 

2. Save the interrupted task registers switch stacks and drop 
down to the task's actual priority as specified in the LEVEL 
table. This is all accomplished by a JSR R0# R.SAVE (Page 29, 
lines 5 and 6). R.SAVE is called the task's "TCN" as a 
parameter and passed. 


1 Page number refers to the page number at the top of the PIREX 
listing. 


4-62 



Task Development 


3. Test the task busy idle switch to see if the request has been 
cancelled (Page 27, lines 7 and 8) . If it was cancelled, 

use the normal DEQU exit without sending a completion message 
to the caller (see Section 4. 7. 2.4). 

4. Perform task interrupt processing and error checking (Page 29 , 
lines 10-36) . 

5. If a correctable error is detected, set the error code in the 
DEVST table. This error code should indicate a correctable 
error. The DEQU1 return should be used in conjunction with 

a clock wake-up call to allow automatic retry of the operation 
(Page 29, lines 40-44). See Section 4. 7. 2. 4 for information 
on DEQU1 and Section 4.7.3 for information on the timed 
wake-up. 

6. If a fatal error occurs, the event variable should be set to 
indicate this error. 

7. If the operation was successfully completed, use the normal 
exit procedure described in Section 4. 7. 2. 4 (Page 29, lines 
46-58) . 


4. 7. 2. 4 Exit Techniques - When a task has finished execution, it can 
exit by issuing the SEXIT macro (exit and change state of task to "s") . 


.MACRO SEXIT s 
IOT 

.BYTE 0, s 
. ENDM 


The SEXIT macro allows a task to change status to state "s M after 
exiting. A task state of "O'* indicates the task is runnable, a state 
of ,, 2" indicates a wait state, and a state of "4" indicates a stop 
state with removal of the ATL node. Task states must always be an 
even number since they are used to compute a word index in the PDP-11. 
A SEXIT in state "0" causes the system to rescan the ATL list for the 
highest priority task. 

There are actually three modes in which a task may exit. In the first 
mode, is used on completion of a request. Before a task exits, it 
must : 

1. Zero the busy/idle switch. 

2. Set the caller's Event Variable to indicate the nature of 
task completion and send an optional interrupt to the XVM 
or the PDP-11. 
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3. Dequeue a request from its deque and process it if found; 
otherwise exit. 


Before a task can begin the three previously mentioned steps, it must 
be executing at level 7 (the highest priority level in the PDP-11) . 

As an example, assuming a task name is M XR" (the first executable 
instruction of every task has the task name as its label), then the 
following program code would accomplish the three necessary steps: 


BIS #340, @#PS ; INHIBIT INTERRUPTS 

MOV #? , Rl ; SET CALLER'S EV TO ? (APPROPRIATE VALUE) 

CALL SEND 15 ? AND SEND CALLER 

; AN OPTIONAL INTERRUPT 
7 TELLING THE REQUESTOR THAT THE 
7 REQUEST HAS BEEN PROCESSED 
7 (A COMPLETE LIST OF EVENT) 

7 VARIABLE SETTINGS MAY BE 
; FOUND IN SECTION 3. 2. 5. 4 
BIS #340, @#PS ? INHIBIT INTERRUPTS, 

CLR XR-2 7 CLEAR THE BUSY/IDLE SWITCH ("XR" is the tag 

associated with the first executable 
instruction in the task program code) 


CLR 

MOV 

MOV 

JMP 


XR-4 


#XR,R3 
#XR, LH,R1 
DEQU 


7 DEQUEUE ANOTHER REQUEST IF ANY 

7 EXISTS IN THIS TASK’S DEQUE 

7 IF A REQUEST EXISTS, NO RETURN 

7 IS MADE FROM ROUTINE DEQUE 
7 AND THE REQUEST IS AUTOMATICALLY 

7 REMOVED AND PROCESSED AS IF IT 

? WERE JUST RECEIVED WHEN THE 

7 TASK WAS IDLE 


This first method is used in the task interrupt section upon successful 
completion of a request. 
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The second method is one where the task exits from the initialization 
section (Figure 4-3, Page 29, lines 46-58) in a wait state using the 
SEXIT macro, and an interrupt routine or other task will complete the 
previously mentioned three steps at a later time* A device driver is 
typically exited in this way (Figure 4-3, Page 29, line 57) . The 
initial section of the device driver is used to set up the device con- 
troller and begin the I/O operation. The task will then exit in a 
wait state until the I/O is complete, the interrupt section is called, 
the device is shut down, and the previously mentioned three steps are 
done informing the requestor that the I/O operation has been completed. 

The third method of exiting is one used either when a recoverable error 
is detected in the interrupt section of a driver and the intention is 
to exit and wait for an error recovery or when another I/O request is 
issued in the interrupt section and another interrupt is expected. 

This exit through DEQU1 does not cause the dequeuing of pending re- 
quests but simply places the task in a WAIT state. This method assumes 
that an R.SAVE has been performed upon entry to the interrupt process 
routine. The required code to use this exit is: 

JMP DEQU1 

No registers are preserved by this exit. Control is returned to the 
interrupt section upon occurrence of an interrupt or via the clock 
routine wake-up, to a location chosen by the clock set up section. 
(Figure 4-3, Page 29, line 44) . 

4.7.3 Timed Wakeup 

In the design of a device driver it is useful to include features that 
eliminate operator intervention whenever possible. 

For instance, in the example of the PIREX Line Printer Task, an OFF 
Line condition is handled by retrying the printing every two seconds 
until successful. This is accomplished by using the wakeup feature 
of the Clock Task. This is done by simply placing the return address 
and the time dealy into the Clock Table "CLTABL" (See Section 3.3.4) 
Figure 4-3, Page 29, lines 42-43) and the exits using the DEQU1 type 
exit . 


4-65 



Task Development 


When the wakeup call occurs, the clock wakeup subsection specified by 
the return address will be invoked. In this subsection: 

1. Test the task IDLE/BUSY switch to see if the task has been 
shut down. If shut down, a RTS PC return to the Clock Task 
is in order. (Page 29, lines 65, 70-71, 83.) 

2. Determine if the error has been corrected. If not, reset 
the timer and RTS PC to the Clock Task. (Page 29, lines 
72, 73, 82, 83.) 

3. If the error has been corrected, reprocess the original TCB 
request and return to the Clock Task. (Page 29, lines 74-81.) 
This will cause PIREX to retry the TCB. 


4.7.4 Assembly and Testing 

4.7. 4.1 Assembly and Loading - New PIREX device driver should be 
assembled as a part of the PIREX monitor. Background tasks may be 
assembled separately. 

In the background task case, the user should construct an XVM program 
to load the background task binary into XVM memory. (See SPOL15 for 
an example of the required technique.) The XVM program must then issue 
a CONNECT Directive. To start the task, if the task is to execute in 
PDP-11 local memory, two additional steps are required: 

1. Issue a local memory size directive to determine if there 
is enough local memory to accommodate the new task. 

2. Issue a CONNECT directive (assuming there was enough room 
in local memory for the task) . 

3. After issuing the CONNECT directive, use the initial portion 
of the PDP-11 code to move the remainder of the task into 
the local memory starting at the first free location. 

4. 7. 4. 2 Testing - Since the typical UNICHANNEL system does not have 

a terminal device attached to the PDP-11 processor, the only debugging 
facility present is the console indicators on the PDP-11. An addi- 
tional aid is the UDMP11 paper tape provided with all UC15 XVM/DOS 
systems. This program provides a destructive dumping facility that 
recovers the entire state of the PDP-11 LOCAL memory and dumps it into 
the LPl 1/LSl 1/LVl 1 Printer. 
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NOTE 

The UDMP11 program is an unsupported package 
that can only be used on systems with a printer 
device on the PDP-11 UNICHANNEL Processor. 

For tasks executing in the common memory, the 
traditional t Q-DUMP feature of the XVM/DOS 
monitor should be used. 
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CHAPTER 5 

SPOOLER DESIGN AND THEORY OF OPERATION 

5 . 1 INTRODUCTION 

This chapter discusses the design concepts of the XVM UNICHANNEL SPO- 
OLER software and its theory of operation. This information is pro- 
vided to enable the user to understand the SPOOLER software in order 
to add new SPOOLED tasks or to modify existing software. The actual 
modification process is described in Chapter 6. Flowcharts are pro- 
vided whenever it is necessary. 

5.2 OVERVIEW 

5.2.1 SPOOLER 

The word 'spool' and 'spooling' originated in the textile industry. 
During thread manufacture, the threads are wound on small spools by 
first storing them on large spindles and then transferring them onto 
small spools. This entire process is called spooling. In the com- 
puting industry, the term spooling is used to describe the process of 
collecting and storing data on a large high-speed medium and control- 
ling the flow of this data to slow speed devices. The "SPOOLER" is a 
distinct piece of software that controls the entire spooling operations. 
Spooling permits data flow between a data source and a data sink to 
proceed at independent rates. This feature gives the user greater 
computing power and faster turn-around time because of better system 
resource utilization under an integrated operating system. 

5.2.2 XVM UNICHANNEL Spooler 

In the XVM UNICHANNEL system, spooling is achieved by using the dual 
processing capability of the system. The two processors, XVM and 
PDP-11, operate in the Master and Slave mode respectively. The Slave 
processor (PDP-11) controls the entire spooling operation. Data to 
be spooled is supplied by either the master processor (XVM) , or by 
tasks running under PIREX. Spooled data is stored on a disk cartridge. 
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The Line Printer, Card Reader, and the Incremental Plotter, all being 
UNI BUS devices, are supported by the XVM UNICHANNEL spooler. 

5.3 SPOOLER DESIGN 

The XVM UNICHANNEL SPOOLER is based on a simple design. Spooling of 
data is done through the RK05 disk. A contiguous portion of disk is 
allocated via SPLGEN for this purpose by the operating system on the 
XVM. The starting block number and the size in terms of number of 
blocks is conveyed to the SPOOLER when it is issued the 'BEGIN' dir- 
ective. The SPOOLER allocates and deallocates this space on the disk 
through a BITMAP it maintains. The spooling and despooling operations 
of every task are performed through a central "TABLE", in which every 
spooled task has a slot. Against each slot there are several entries 
used to keep track of the data during spooling and despooling. Pro- 
visions are made in the SPOOLER to permit spooling of data regardless 
of the number of blocks occupied in the spool space and the number 
of buffers in the SPOOLER provided despooling operations are going on. 
This prevents system lockout. All the data blocks on the disk belong- 
ing to a spooled task are linked together by forward pointers stored 
in the last word (377 g ) of each data block. The end of data in a 
block is indicated by a zero word. Records are assumed to be less 
than 374g words in size. The last block in a spooled file has a pointer 
to the previous file's last block in word ' l g ' or a -1 if there is no 

active previous file, if the last spooled file has not yet been de- 

spooled. Also the last block in a spooled file contains an end of file 
indicator in word , 376g' of the data block. Sections 5.3 and 5.4 des- 
cribe the static layout of the spooler. The dynamic layout is des- 
cribed in Section 5.5. 

5 . 4 SPOOLER COMPONENTS 

The following are the major components of the SPOOLER software: 

1. request dispatcher 

2. directive processing routine 

3. task call service routine 

4. device interrupt dispatcher 

5. device interrupt service routine 
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6. utility routines 

7. buffers, TABLE, BITMAP, TCBs 

A brief description of each of the above components follows. 

5.4.1 Request Dispatcher 

This routine dispatches (routes) all requests made by the SPOOLER and 
requests to the spooled tasks. This is done by using the TCN in word 
1 1' of the TCB. The dispatcher transfers control to the appropriate 
directive processing routines, in the case of spooler requests and 
to the task call service routine, in the case of requests to spooled 
tasks . 


5.4.2 Directive Processing Routines 

These routines process directives issued to the SPOOLER to control 
spooling operations. The basic operations are "BEGIN" spooling and 
"END" spooling. These routines may initialize switches, TABLE, BIT- 
MAP, pointers, buffers, set up TCB, start tasks, stop tasks, ... etc. 

5.4.3 Task Call Service Routines 

A task call service routine processes requests addressed to tasks 
running under PIREX. It spools data onto disk in case of output tasks, 
and for input tasks it despools the data from disk. Output tasks buf- 
fer data from several requests into blocks and transfer the blocks to 
disk when full. Input tasks read into core, data blocks stored on 
disk, and unpack the data into the requestor's buffer. Task Call 
Service Routines update the TABLE, pointers, and switches, and use the 
utility routines present in the SPOOLER to write or read a block onto 
or from the disk, get or give a buffer, get or give a TCB, etc. (Refer 
to Figure 5-2.) 

5.4.4 Device Interrupt Dispatcher 

All interrupts from devices interacting with the SPOOLER are dispatched 
by this routine to the appropriate service routines. This is done by 
using the TCN of the requestor for that task request present in word 
1 13g ' of the TCB . 
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5*4.5 Device Interrupt Service Routines 

These routines handle completion of I/O requests from devices. They 
supplement the driver routines present in PIREX as in the device hand- 
lers. Besides the disk interrupt service routine, each spooled task 
has its own interrupt service routine. The disk interrupt service 
routine is made up of the "read interrupt processor" and the "write 
interrupt processor". These are in turn made up of routines handling 
read/write operation for each specific spooled task. The interrupt 
service routine of a spooled task controls the despooling operation 
for output tasks and the spooling operation for input tasks. These 
operations are driven by the table entries which determine the end of 
the operation. Device interrupt service routines update the TABLE, 
pointers, switches and use the utility routines to write or read a 
block onto or from the disk, get or give a buffer, get or give a 
TCB, etc. 

5.4.6 Utility Routines 

Each SPOLll utility routine performs a specific function. They are: 

FINDBK 

FREEBK 

GETBUF 

GIVBUF 
GETRKT 
GIVRKT 
GETBLK 
PUTBLK 
GETPUT 
RESTRQ 
DEQREQ 


Find a free block on disk- and set its bit in the 
BITMAP Table (protected) . 

Free the block indicated and reset its bit in the 
BITMAP Table. 

Get an unused buffer from the buffer pool 
(protected ) . ^ 

Give the used buffer back to the buffer pool. 

Get a disk TCB from the Disk TCB pool. 

Give back the TCB to the Disk TCB pool. 

Read a block from disk. 

Put a block on disk. 

Get or put a block on disk. 

Reissue a delayed request. 

Tell requestor that a request is done and dequeue 
the next request, if any. 


1 


Protected routines are those run at priority level 


7. 
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5.4.7 Buffers, TABLE, BITMAP, TCBs 


Buffers 


TABLE 


BITMAP 


TCBs 


The SPOOLER maintains a pool of buffers in a 
doubly linked list for general use. Buffers 
are used to pack data into blocks to be 
written onto disk (by output task call ser- 
vice routines) and to unpack data from data 
blocks read from disk into requestor buffers 
(by input task call service routines) . 

The entire spooling and despooling operation 
of all tasks is controlled by entries in this 
table. Every spooled task has the following 


entries : 



WORD 0: 

DEV 

device mnemonic (set by the BEGIN 
routine) 

WORD 1: 

CBN 

current despooling block number 
(set by the despooler) . 

WORD 2: 

CRP 

current record pointer (set by the 
despooler) . 

WORD 3s 

NBN 

next despooling block number (set 
by the despooler) . 

WORD 4: 

LSB 

last spooled block number (set by 
the spooler) . 

WORD 5: 

LFB 

last spooled file block number (set 
by the spooler) . 


A record of availability of disk spooling space 
is maintained in the BITMAP. Corresponding to 
each disk block reserved for spooling is a bit 
which is 'ON' if the block is in use and 'OFF' 
if free. 

Buffered blocks of data are read from disk and 
written onto disk using TCBs. Output spooled 
tasks despool data to devices using TCBs and 
input spooled task spool data from devices using 
TCBs. 


5.5 THEORY OF OPERATION 


This section will describe in detail the flow of control in the SPOOLER 
among the above components. To illustrate this process, the spooling 
and despooling operations of the Line Printer will be discussed. The 
routines in the SPOOLER listing (Figure 5-1) are broken up into logic 
boxes and referenced by line numbers. 
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5.5.1 SPOOLER Startup 

Spooling under an operating system on the XVM is accomplished as 
follows. The SPOOLER task should be added to PIREX, by reading it 
into local memory and connecting it at run time via SPOOL (SP0L15) . 

As supplied by DEC, the SPOOLER is a separate binary program from 
PIREX. A special XVM program referred to as the system/SPOOLER inter- 
face (SP0L15) is responsible for loading the SPOOLER into PDP-11 local 
memory and then issuing requests to PIREX to connect the SPOOLER and 
then begin its operation. 

SPOLl 5 (SPOOL) determines if the spooler is running. If so, SP0L15 
asks "END?". If the reply is yes, a terminate spooling directive is 
sent to PIREX and the SPOOLER is disabled. If the SPOOLER is not run- 
ning, SPOLl 5 asks on which RK drive the user wishes to begin spooling. 
Spooling may be done on any RK unit that has a cartridge that has been 
initialized with a SPOOLER area by the SPLGEN program. If the cartridge 
has a SPOOLER area and if there is room in the PDP-11 local memory, 
the SPOOLER is read from the system disk (DPO, DK, or RKO ) and trans- 
ferred to local PDP-11 memory and started. Note that the questions 
“RK UNIT# “ and "BEGIN?" must be answered in this process. 

All questions have default replies displayed. These replies may be 
selected by entering a carriage return. The options on YES/NO questions 
are "Y" or "N". The default valve for the RK unit is the unit upon 
which spooling was done previously (or unit 0 if PIREX was just loaded) . 

Example: XVM/DOS Vnxnnn 

$ SPOOL 

SPOOL XVM Vnxnnn 

RK UNIT # CO i 

BEGIN? (Y) Y 

SPOOLING ENABLED 

XVM/DOS Vnxnnn 
$ SPOOL 

SPOOL XVM Vnxnnn 

END? (Y) Y 
SPOOLING DISABLED 

XVM/DOS Vnxnnn 

$ 

Subsequently when PIREX schedules the SPOOLER task to run, the "BEGIN" 
request is processed. On gaining control, the 'request dispatcher' 
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transfers control to the 'BEGIN' routine. The first time the SPOOLER 
processes a directive it also executes a once only section of code, 
which builds a central address table. This table contains addresses 
of frequently addressed locations in the SPOOLER and is necessary since 
the SPOOLER is coded in Position Independent Code (PIC) and thus can 
be loaded anywhere in the PDP-11 memory. SPOOLER is coded in PIC to 
permit additional tasks to be added to PIREX without necessitating 
SPOOLER changes. The BEGIN routine performs the following; general 
startup operations and the specific line printer startup operations 
(refer to Figure 5-1) : 


GENERAL OPERATIONS - BEGIN DIRECTIVE: 

page 7, lines 9-12 
line 13 

lines 15-18, 40 

switches and pointers. 


Set up the SOFTWARE 
INTERRUPT trap address in 
the PIREX SEND11 table 

Save the SPOOLER start address 
in the "disconnect SPOOLER" 

TCB 

Initialize the FINDBK routine 


8P0L11. 

AS5EMBL 

1 

2 

3 

4 

5 

6 
7 
B 

9 

10 
11 
12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


141 MAC1J 

Y PARAMETER^ 


XV* V1A000 PAGE 3 

, SBTTL ASSEMBLY PARAMETERS 


F CONDITIONAL ASSEMBLY, SLP, SCO, 
F FOR LP USE 40000 

F FOR PL USE 10000 

F FOR CO USE 20000 

0400001 SL P*40000 
F$PL«1*000 
F 

F CARD READER, AND XY PLOTTER, 

000000 DEvSRP«0 
000000 DEvC NT*0 

, I PDF SIP 

00000* OEvCNT»DEVCNT+l 
040000 DEvSPP«DEVSPP1 SLP 
, E w D C 

.ifdf SCO 
DEv/CNT*DEVCNT+l 
DEvSPP»DEVSPP1$CD 
. EnDC 

.ifdf SPL 

DEvCnT*DEVCNT+1 

nEv/SPP«DEVSPPlSPL 

.EnOC 

F 

F 

F 

F 

.SBTTL SYMBOLIC EQUATES 


SPL, FOR LINEPRINTER 


RESPECTIVELY 


Figure 5-1 

UNICHANNEL Spooler Components 
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SPOt 1 1 § 1 41 MArll X V M V1A000 PAGE 6 

SPOOLER DISPATCHER 


NOTE 

The A assembly errors contained 
in this figure are warning 
messages, and, do not indicate 
actual errors in this example. 


1 




. SBTTL 

SPOOLER DISPATCHER 


2 


0ft0ftftft 

SPPEfi ■ , 





3 

000000 

005763 


.WORD 

3PEND-3PBEG/2 


/SIZE OF SPOOLER (BR-127) 

4 

000002 

000146 


.WORD 

SPST 


/STARTING BYTE OFFSET (BR*128) 

5 

000004 



.BLOCK 

8,+EAESTK*6»2 

/ CBR- 

128) 

6 

00014ft 

000142 


.WORO 

DUM 



7 

000 1 4 g 

000000 

nuMj 

.WORD 

0 



e 

000144 

00000ft 


.WORD 

0 



9 

00014$ 

01670ft 

177772 

SP3T| 

MOV 

SP$T«2>R0 

;get 

TCP ADDRESS IN «0 

10 

00152 

012767 


MOV 

#100000, SPST-4 

/fake 

ll'S REQ. TO PREVENT GETTING KILLED 



100000 
1 77769 






11 






/THIS 

IS TO PREVENT STACK BLOW UP THRO f 

12 






/CTL 

»C»S FROM PDP* 1 5 

13 

0016ft 

013767 

001066 

001740 


MOV 

##CTLCT,SDCT5V 

1 SAVE 

CURRENT CTL tC» COUNT FOR LATtR CLEANUP 

14 

0016$ 

00576 7 
005046 


TST 

ONCEFL 

/HAS 

THIS CODE ALREADY BEEN UQNE? 

15 

00172 

001026 


BNE 

20$ 

/YES 

— DON 1 T DO IT AGAIN 

16 

00174 

012737 


MOV 

#QEVSRP,##DEVSPL 

/SET UP DEVICE SPOOLED WORD 



040000 

001064 






17 

00202 



AOR 

SRBEG , R 1 

/INITALUE ADDRESSES CPIC COUE) 


00202 

010701 


MOV 

PC , R 1 




00204 

062701 

177574 


ADD 

#SPBEG« , , R 1 



18 

0021ft 



ADR 

ADRTBL , P2 




00210 

010709 


MOV 

PC , R2 




00212 

062709 

004746 


ADD 

#A0RTBL». ,R2 



19 

00216 

ft 1 2 7 ft * 
000031 


MOV 

#-ADTCNT,R3 



20 

00222 

0601 29 

1 ftt 1 

ADD 

Rl, CR2)+ 


/CALCULATE ADDRESSES 

21 

00224 

005303 


DEC 

R3 



22 

00226 

001373 


BNE 

10$ 

/LOOP 

UNTIL ALL FINISHED 

23 

00230 

016709 

004769 


MOV 

BUFLAD,R2 


/SET UP BUFFERS 

24 

00234 

060122 

1531 

ADD 

Rl, CR23+ 

/SET 

UP POINTERS GOING BACKWARDS THRU Q 

25 

00236 

060119 


ADD 

Rl, AR2 



26 

0024ft 

014209 


MOV 

-CR2) ,R2 



27 

00242 

020967 

00475ft 


CMP 

R2 , BUF LAD 

/HEAD 

OF BUFFER? 

28 

00246 

001379 


BNE 

15$ 

/NO 

- TRY AGAIN 

29 

0025ft 


9 0 3 1 





30 

0025ft 

12276ft 


CMRB 

#3PCOD+200,TCODE(R0) 

/SPOOLER REQUEST? 



000207 

000009 






31 

00256 

001439 


BEQ 

Z1S 



32 

0026ft 

010701 


MOV 

PC i R 1 



33 

00262 

0627fti 


ADD 

#DISP1» a , R 1 

/ GET 

DEVICE DISPATCH TABLE IN Rl 


000124 


Figure 5-1 (Cont.) 
UNICHANNEL Spooler Components 
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SP0L1 1 « 1 4 1 M A C 1 1 . XVM V1A000 PAGE 6 + 


SPOOLER DISPATCHER 




34 

00266 

005002 


CLR 

R2 


33 



/ 




36 

00270 

122760 

000004 

000002 


CMPB 

#LPCOD,TCODECR0) 

1LP REQUEST? 

37 

00276 

001431 


BEG 

Z2S 


36 



; 




39 

00300 

00 3722 


TST 

(R23 ♦ 


40 

00302 

122760 

000005 

000002 


CMPB 

#CDCOD,TCQDE(R03 

1N0, CD REQUEST? 

4 1 

00310 

001424 


BEG 

Z2S 


42 



> 




43 

00312 

00572? 


TST 

(R2) ♦ 


44 

00314 

122760 

000006 

000002 


CMPB 

*PLCOD,TCODE(R0) 

/NO. PL REQUEST? 

43 

00322 

001417 


BEG 

Z2S 


46 



t 




47 



i unrecognised task request report. 

46 



j 




49 

00324 


ERpORS 




30 

00324 

013701 

001050 


MOV 

4#DEV5T t R 1 


31 

00330 

062701 

000056 


ADD 

#SPC0D*3*2+4*R1 


52 

00334 

1127H 

000077 


MO V B 

#1 0PS77 f (R13 


53 

00340 



CALL 

OfcQREQ 



00340 

004767 

000664 


JSR 

PC, DEQREQ 


54 



/ 




53 

00344 

010701 

71*1 

MOV 

PC | R 1 

/SPOOLER REQUEST I GET SPOOLER DISPTACH 

56 

00346 

062701 

00002? 

ADD 

#DI5P0- , , R 1 

/TABLE IN #3 


37 

00352 

1 16007 
000006 


HO VB 

FCODE (Rtf) i R2 

1 GET FUN, CODE 

58 

00356 

042702 

177740 


BIC 

#1 777 40 , R2 


59 

00362 

060102 

72*1 

ADO 

Ri,R2 

/ADD FUN, CODE TO R1 

60 

00364 

061201 

ADD 

CR2) ,R1 

/BUILD DISPATCH JUMP X 

6 1 

00366 

000111 


JMP 

CR 1 3 

/BRANCH TO APPROPRIATE ROUTINE 

62 



/ 




63 



; SpOoLFR directive dispatch table 

64 

00370 

000024 

D I * P0 1 

BEGIN 

-DISP0 

/ BEG I N I CODE «0 

63 

00372 

177734 


ERROR 

-DISP0 

/ ERROR 1 CDDE«2 

66 

00374 

000434 


END 

-DISP0 

7 END * CQDE»4 

67 

00376 

177734 


ERROR 

-DISP0 

/ERROR 1 C0DE«6 

68 

00400 

177734 


ERROR 

-DISP0 

/ERROR1 CQDEa 1 0 

69 

00402 

177734 


error 

-DISP0 

/ERROR 1 CODEs 1 2 

70 

71 

72 

00404 

177734 

1 

/ DpVTCE 

ERROR 

*»D ISP0 

/ERRORS CODEs \ 4 



request 

-DISPATCH TABLE 


73 

00406 

00372 2 

D I *P 1 1 

LPCALt 

"D ISP 1 

/LP1 LINE PRINTER 

74 

00410 

004462 


CDCALL 

•DISP1 

7 CD x CARD READER 

75 

00412 

004430 


PLC ALL 

-DISP1 

7 PL I XY PLOTTER 

76 



1 
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SP0L1 1 • I 4i 
BEGIN DIRECTIVE 
1 
2 
3 


HAC11 XVM V 1 A000 PAGE 7 

B SBTTL BEGIN DIRECTIVE 

ftwlfl ROUTINE STARTS ALU SPOOLING OPERATIONS. SWITCHES, CONTROL REGISTERS 


4 



ietc'. are set 

, THE BUFFER POOL, 

TC8 POINTERS, BITMAP, TABLE ETC. ARE 

S 



1 SET UPJBITMAP 

8 TABLE ARE SAVEO 

ON DISK (FOR BACKUP OPERATIONS), EACH 

6 

7 



iXmdtvidual spooled task is then 
f 

INITIALIZED & STARTEO UP IF NECESSARY 

6 

9 000414 

010701 

F 

BEfi I w I MOV 

PC, HI 

1 GET ADDRESS OF OEVINT IN R1 

10 

00416 

062701 

002346 

ADD 

#DEVINT- i ,Rl 


It 

00422 

01370? 

00100? 

MOV 

MSEND 1 1 , R2 


12 

00426 

01016? 

000016 

MOV 

Ri,SPC0D*2CR2) 

J SET SENOU AOORESS IN PIREX 

13 

00432 

016067 

MOV 

14(R0) ,TCBO$A*TCBDIS 



000014 

006274 




14 



i INITIALIZE ALL SWITCHES 


15 

00440 

012767 

000001 

001440 

MOV 

6 1 , CBTPTR 

? ST ART BIT MAP SEARCH 

16 

00446 

016701 

00454? 

MOV 

ASPLFU , R 1 

F ##1 39##SETUP TASK COOE STACK FOR FINOBK 

17 

00452 

010167 

00143? 

MOV 

R 1 , TCDINI 

?##139##WHEN MORE THAN ONE GUY FINDS OUT 

18 

00456 

010167 

001430 

MOV 

R 1 , TCDPNT 

F##139##THERE ARE NO BLOCKS 

19 



| SfT control 

REGS. 


20 

00462 

010701 

MOV 

PC , R 1 

F GET ADO. OF OUH IN R1 

21 

00464 

062701 

177456 

ADD 

#DUM«* , , R 1 


22 

00470 


PUSH 

R1 

F SAVE ON STACK 


00470 

010146 

MOV 

R 1 , " CSP) 


23 

00472 


POP 

-CR1) 

F SET SPOOLER CONTROL REG, 1 i 


00472 

012641 

MOV 

csp)+,-cRn 


24 



ISFTMP BUFFER 

POOL 


25 



FInITIALIZE rk 

TCB POINTERS 


26 

00474 

016701 

004460 

MOV 

RKCA0,R1 

F GET RKTCBP ADD. IN HI 

27 

00500 

010709 

MOV 

PC , K2 

? GET TCBR01 ADD, IN R2 

28 

00502 

06270? 

00601? 

ADD 

#TCBST-,,R2 


29 

00506 

012705 

000005 

MOV 

#TCBCT,R3 

F SETUP TCBCT TCB»S 

30 

00512 

010221 

9 S 1 MOV 

R2, (Rl) + 

F SET TCBRK1 POINTER 

31 

00514 

06270? 

000030 

ADO 

#30, R2 

F BUMP R2 TO TCBRK2 

32 

00520 

005303 

DEC 

R3 


33 

00522 

001373 

BNE 

as 


34 



FINITIALIZE BITMAP 


35 

00524 


PUSH 

NBK CRB) 

FGET SIZE OF SPOOLER AREA NUMBER 


00524 

016046 

MOV 

NBK ( R0 ) (SP) 


SP0L11.H1 

MAT 1 1 X V M VI A000 PAGE 7* 


BEGIN DIRECTIVE 






00001? 




36 

00530 

006? 1 6 

A8R 

(SP) 

F COMPUTE SIZE OF BIT MAP 

37 

00532 

006216 

ASR 

(SP) 

FSIZE»NUMBK/8+2 

38 

00534 

006? 1 6 

ASR 

(SP) 


39 

00536 

042716 

000001 

BIC 

#1, (SP) 

FGET EVEN NUMBER 

40 

00542 

016767 

004420 

001334 

MOV 

BTMPAD,CWDPTR 

FRESET CWDPTR 

41 

00550 

016701 

00441? 

MOV 

BTMPADiRI 

F (BR0112, TEMP FIX) 

42 

00554 

062601 

ADD 

(SP) ♦, R 1 

FAOD OFFSET TO END 

43 

00556 

010167 

005460 

MOV 

R 1 , BTMPED 

F SET UP btmpeo 
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SR0L1UM1 

MACH *VM V1A000 PAGE 7 + 


BEGIN DIRECTIVE 




44 

00562 

016701 

004409 

MOV 

STBKNA » R 1 

;get ADDRESS OF STBKnM« 4 IS Rl 

45 

00566 

01602! 

000010 

MOV 

SBN (R0 ) , (Rl) + 

;SET STARTING LOCK P 

46 

00572 

016021 

00001? 

MOV 

NBKCR0) , (Rl)+ 

r SET NUMBER OF BLOCKS 

47 

00576 

016037 

MOV 

UNITCRB) ,MSPUNIT ITELL PIREX SPOOLING UNIT (BR. 



000018 

001070 




46 

00604 

016067 

000016 

001550 

MOV 

UNIT (R0) f UNI TSP 

1 COPY INTO LOCAL MEM, (BR-126) 

49 

00612 

000367 
00154 4 

SWAB 

UNITSP 

ISET UP FOR TCB USE (BR-126) 

50 

00616 

012709 

000362 

MOV 

PBTMPSZ,R2 

1 GET BIT MAP SIZE IN R2 

51 

0062 2 

010103 

MOV 

Rl # R3 


52 

00624 

005023 

4Si CLP 

(R3J + 


53 

00626 

005309 

DEC 

R2 


54 

00630 

001375 

BNE 

4S 


55 



i initialize table 


56 

00632 

016701 

004334 

MOV 

tablad,ri 

/GET ADDRESS OF TABLE IN R1,R3 

57 

00636 

010103 

MOV 

Ri,R3 


58 

00640 

012709 

000044 

MOV 

PTABL5Z,R2 

I GET TABLE SIZE IN R2 

59 

00644 

012723 

177777 

3Sf MOV 

P-1, CR3) ♦ 


60 

00650 

005309 

DEC 

R2 


61 

00652 

001374 

BNE 

33 


62 

00654 

012711 

142061 

MOV 

PLP1, (Rl) 

ISET LPKDED) IN TABLE 

63 

00660 

012761 

030461 

000014 

MOV 

PCD 1 » CDTEOF (Hi) 

ISET CD 1 (DED) IN TABLE 

64 

00666 

012761 

142461 

000030 

MOV 

PLT 1 , PLTEOF (Rl ) 

ISET PL1 (DED) IN TABLE 

65 



ISFT SPOOLER 

SWITCHES 


66 

00674 

005037 

001046 

1$» CLP 

PPSPOLSW 

IRESET SPOOLER SWITCHES 

67 

00700 

052737 

170000 

001046 

BIS 

pbegsw,ppspolsw 

ISET SPOOLER ENABLED AND RUNNING 

66 



1 



69 



lAlL SPOOLED 

TASKS HAVE to be INITIALISED. OPERATIONS LIKE SETTING 

70 



n resetting 

SWITCHES, SETTING UP POINTERS, BUFFERS, STARTING UP 

71 



rT&SK PTC, HAVE TO BE DONE AS INDICATED FOR EACH TASK 

72 



1 



73 



,ifdf 

SCD 


74 



BIS 

#2,P#SP0LSW 

ISET CD ON ONLY IE PRESENT 

75 



unitialize cd spooler/despouler 

TASK 

76 



CURB 

CDONCE 


77 



MOV 

P1000,CDONCEM 


78 



MOV 

MLISTHQ,R2 

IGET ADDRESS OF LISTHU IN R2 

79 



ADO 

PC DCQD *4 , R2 

ICLEAR CD DEQUE TASK CODE-5 

80 



CALL 

EMPTD 


81 



MOV 

PKl,NBN7TABLt+CDTE0F 

62 



MO V B 

P 1 t CDCNT I 

UNITIALIZE CDCNT I 

83 



CLRB 

CDBMS 

IRESET CDBMS 

84 



CLRB 

COBFS 


85 



MOV 

RliCDCBIP 


86 



CMP 

CR1)*, (Rl ) ♦ 


87 



MOV 

R 1 f CDWDIP 


88 



ADD 

PCDSIZEiCDWDlP 

1 BUMP TO NEXT CARD 

89 



MOV 

Rl ,R5 

ISAVE BUFFER ADDRESS ON DTA H 

90 



CALL 

STUPCT 

ISET UP TCB TO READ A CARD 

91 



,ENDC 



92 



, IFDF 

SLP 


93 



/initialize lp spooler/despooler 

TASK 

94 

00706 

105067 

CLRB 

LPONCE 



002643 
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SPOIU.141 MACH XVM V1A000 PAGE 7* 

begin directive 


95 00712 

012767 

001000 

002630 


MOV 

#1000,LPONCE+1 




96 00720 

013709 

001010 


MOV 

##LISTHD,R2 

/ GET ADDRESS OF LISTHD 

IN 

R2 

97 00724 

062709 


ADD 

#LPCOD*4,R2 

1 CLEAR LP DEQUE* TASK 

CODE *4 


000020 







98 00730 



CAUL 

EMPTD 




00730 

004767 

000026 


JSR 

PC, EMPTD 




99 

100 0734 

011167 

005329 


MOV 

PRl#NBN+TABLt 

/ SET N0N*C8N FOR START 

UP 


101 0740 

010167 

003356 


MOV 

RlpLPCBCP 




102 0744 

022121 


CMP 

CR1J+, CR1 ) + 




103 0746 

010167 

003359 


MOV 

R1,LPWDCP 




104 0752 

105067 

003343 


CLRQ 

LPBM8 




105 



.ENDC 





106 



.IFDF $pl 




107 


iInITIAUIZE PL 

SPOOLER/OESPOOLER 

TASK 



108 



CLRB 

PLONCE 




109 



MOV 

U 1 000 , PLONCE+ 1 




110 



MOV 

PPLI STHD , R2 

;GET ADDRESS OF LISTHD 

IN 

R2 

111 



ADD 

#PLCOD*4,R2 

/CLEAR PL DEQUE* TASK 

CODE *6 

112 



CAUL 

EMPTD 




113 



MOV 

0R1 . NBN+TABLt+PLTEOF 



114 



MOV 

R 1 , PLCBCP 

/SET PLCBCP 



115 



CMP 

(Rm, CR 1 ) 7 




116 



MOV 

R 1 r PLWDCP 

/SET PLWDCP 



117 



CLR8 

plbms 

/RESET PLBMS 



118 



# ENDC 





119 


f A i L DONE DEQUE 

NEXT REQUEST 




120 0756 



CALL 

PEQKEQ 




0756 

004767 

000946 


JSR 

PC,DEQR£Q 




121 


1 






122 


| E MPT Y 

TASK DEQUE 




123 0762 

124 0762 


EMpTm 

.INH 


/INHIBIT INTERRUPTS 



0762 



PUSH 

0#PS 




0762 

013746 

177776 


MOV 

#6PS,^CSP) 




0766 

052737 

000340 

177776 


BIS 

#L VL7 f ##PS 




125 0774 

012701 

001026 


MOV 

 f R 1 

/EMPTY TASKS DEQUE 



126 1000 

004731 


JSR 

PC,0(R1)+ 




127 1002 



.ENA 


/ENABLE INTERRUPTS 



1002 



POP 

#*PS 




1002 

012637 

177776 


MOV 

(SR)<*,##PS 




128 1006 



CALL 

FINDBK 




1006 

004767 

000426 


JSR 

PC , F I NOB K 




129 1012 

010146 


MOV 

Rli-CSP) 




130 1014 



CALL 

GETBUF 




1014 

004767 

001344 


JSR 

PC , GETBUF 




131 1020 



POP 

CHI 3 




1020 

0126H 


MOV 

CSP)t, CR t) 




132 1022 

000907 


RETURN 





133 



, SBTTL 

END 
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5P0L11.1 

END 

1 

2 

3 

4 

5 

6 

7 001024 


e 001032 

9 001036 


41 


MAClt XVM V1AE 


PAGE 9 


052737 

00034ft 

177776 

013701 

001052 

005067 

177100 


/THIS ROUTINE SHUTS DOWN ALL SPOOLING OPERATIONS. THE TIMER REQUEST 
t IP r ANCELLED * SOFTWARE INTERRUPTS ARE IGNORED AND THE SP0L11 TASK 
/IS DISCONNECTED FROM PIREX 
f 
f 

/PROTECT ROUTINE CBR-13B) 


F.Nni 


BIS 

MOV 

CLR 


#LVL7 f PPPS 

•#CLTABL,N1 

SPST-4 


/ NULL SPOOLER TIMER REQUEST 
/ENABLE stop all I/O 


10 

01042 

005037 

001064 

CLR 

PPDfcVSPL 

>CL£AR DEVICED SPOOLED 

SWITCH 

11 

01046 

005061 

000034 

CLR 

SPC0D*4CR1) 



12 

01052 

005037 

001046 

CLR 

PPSPQLSW 

PRESET SPOOLER SWITCH 


13 

01056 

042737 

BIC 

*LVL7,#WPS 

/unprotect to allow ints. to run down 



000340 

177776 





14 

01064 

01070 

012705 

00002ft 

MOV 

620, R5 

/allow 20 interrupts cclock UR 

DEVICE) 

15 

000001 1 S t 

WAIT 


/WAIT FOR THEM (BR-13B) 


16 

01072 

005305 

DEC 

Rb 

/COUNT 20 INTS. CBR-13S) 


17 

01074 

001376 

BNE 

1$ 

/BRANCH IF NOT 20 (BR-138) 


16 

01076 

052737 

000340 

177776 

BIS 

PL VL7 i MRS 

/INHIBIT int. 


19 

01104 

013701 

001060 

MOV 

PPTEV ADD , R 1 

/FIND THE ENTRY ADDRESS 


20 



• IFDF 

SLP 



21 

01110 

016102 

000010 

MOV 

LPC00*2CR13 ,R2 

/find task address 


22 

01114 


CALL 

STPTSK 

/STOP THE TASK 



01114 

004767 

000054 

JSR 

PC , 5TPTSK 



23 



.ENOC 




24 



.IFDF 

SCD 



25 



MOV 

CDC00*2CRl) ,R2 

/STOP THE CARD READER TASK 


26 



CALL 

STPTSK 

/STOP THE TASK 


27 



, ENOC 




26 



.IFDF 

SPL 



29 



MOV 

PLCOU*2CRl) ,R2 

/STOP the plotter task 


30 



CALL 

STPTSK 



31 



.ENOC 




32 

01120 

012701 

001036 

MOV 

6RTURN f H 1 

/GET RETURN INST. ADO IN RI 


33 

01 124 

01370? 

001002 

MOV 

PPSENDl 1 ,R2 



34 

01130 

011162 
000ft 1 6 

MOV 

(Rl) ,5PCOD*2(R2) 

/SHUT OFF SEND 1 1 
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SPOLU.Hi 

MACH 

XVM V1A00C 

1 PAGE 0* 

END 





35 

01134 

026??7 

000006 

000004 


CMP 

FCODE (R0) # 14 

36 

01142 

001005 


BNE 

2S 

37 

01144 

012701 

000001 


MOV 

#1,R1 

36 

01150 

01270? 

001024 


MOV 

#SEND15,R2 

39 

01164 

00473? 


JSR 

PC,#(R2)* 

40 

01156 


?$! 

ADR 

TCBOIS# R5 


01156 

010705 


MOV 

PC # R5 


01160 

062705 

005542 


ADD 

#TCBDI3-,,R5 

41 

01164 



IREQ 



01164 

012704 

100000 


MOV 

#100000# R4 


01170 

000004 


I0T 



01172 

001 


.BYTE 

1*0 


01173 

000 




42 



Z 



43 

01174 

00570? 

STpTAKI TST 

R2 

44 

01176 

001415 


BEQ 

IS 

45 

01200 

00576? 

177774 


TST 

-4(R2) / PDP- 

46 

01204 

100010 


BPL 

11 

47 

01206 

014205 


MOV 

»(R2),R3 

46 

01210 

122715 

000007 


CMPB 

#SPCDD # ?R3 

4g 

01214 

001004 


BNE 

IS 

50 

01216 

00501? 


CLR 

6R2 

51 

01220 

00504? 


CLR 

-(R2) 9 STOP 

52 

01222 

00507? 

177776 


CLR 

•-2CR2) 

53 

01226 

000?07 

lit 

RETURN 


54 



1 



55 



9 




I SEE IF THIS HAS "END" OR IUPSUC 20 (BR»1 38) 


I BRANCH IF IOPSUC 20 (BR-lJS) 
I TELL SP0L1S DONE 


| SET FA 


/SEND REQUEST 


/(GAR-141) IS TASK IN EXISTENCE? 

9 (GAR* 141) BRANCH IE NOT. 

11 REQUEST? 

9 NO — IGNORE 

;YES *• TEST FOR SPOILER REQUEST? 


TASK (CLEAR TCB ADR 

/STOP DEVICE FROM INTERRUPTING 


N 
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SPOtll.141 MATH XVM V1A000 PACE 11 

UTILITY ROUTINES 

1 .SBTTL UTILITY ROUTINES 


2 




, IFDF 

SCD 




3 



9 






4 



f SET UP 

TCB TO 

READ A CARD FROM 

CD 



3 



sCaLLING SEQUENCES MOV 

BUFAD.R5 



6 



r 


CALL 

STUPCT 



7 



9 



/ 



0 



STuPCTl 

MOV 

PC, Hi 

9GET ADDRESS OF TCBCO 

IN 

Ri 

9 




ADD 

#TCBCD«.,R1 




10 




BR 

STUCOM 

9 ENTER COMMON RQUTNINE 


11 




.ENDC 





12 




• IFDF 

SLP 




13 



9 






14 



9 Set up 

TCB TO 

WRITE A LINE ON 

LP 



15 



SCaLLING SEQUENCES MOV 

BUFAD, R5 



16 



9 


CALL 

STUPLT 



17 



9 






16 

0 1 320 

010701 

STfjPLTt 

MOV 

PC , R 1 

9 GET ADORESS OF TCBLP 

IN 

R 1 & R5 

19 

01322 

052701 


ADD 

WTCBLP-, ,R1 






00335? 







20 

01326 

000400 


BR 

STUCOM 




21 




a ENDC 





22 




.IF DF 

SPL 




23 



1 






24 



9SET UP 

TCB TO 

WRITE A. LINE On 

PL 



25 



1 C ALL ING SEQUENCES MOV 

BUFAO , R5 



25 



9 


CALL 

STUPPT 



27 



9 






20 



STuPPTt 

MOV 

PC , K 1 

9GET ADDRESS OF TCBPL 

IN 

Rl & R5 

29 




ADD 

#TCBPL-,,R1 




30 




.ENDC 





31 

01330 

010561 

STljCOMl 

MOV 

R5 , 1 0 (R 1 ) 






000010 







32 

01334 

01010«f 


MOV 

R1,R5 




33 

01336 

005061 


CLR 

4(R1) 

9 RESET REV 





000004 







34 

01342 



1REG 


9 SEND 




01342 

012704 


MOV 

W1000P0, R4 






100000 








01340 

000004 


IOT 






01350 

001 


.byte 

1,0 





01351 

000 







35 

01352 

000907 


RETURN 





35 



9 






37 



9 SPT UP 

DISK TCB TO READ A BLOCK WITH NO INTERRUPTS & 

RETURN ADORESS 

38 



9 

CALLING SEQUENCE! 

ADR BUFF , R4 



39 



9 



ADR " ■ CBN , R3 



40 



9 



ADR TCBDK", R2 



41 



9 



CALL STUPDT 



42 



9 






43 

01354 

010905 

sTuPdt: 

MOV 

R2,R5 

9 SAVE TCBP IN R5 



44 

01356 

022229 


CMP 

(R23 ♦ » (R2) + 

9 BUMP TO REV 



45 

01360 

003029 


CLR 

CH23 + 

9 RESET REV 
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SPOL 11*141 MAril XVM V1A000 

find a free nine* pin disk 


PAGE 12* 


42 

01556 

020103 


CMP 

Rl,R3 

/DID WE GET TO BEGINNING WORU 

43 

01560 

101066 


8HI 

55S 

I YES , NO BITS, SET UP FOR t ERROR 1 

44 



f 




48 

01562 

0 l 4 1 0p 

7$t 

MOV 

-CR1),R2 

/ BACK UP TO GET COPY OF WAP WORD 

48 



9 « > 

< > < > 

<><><><>< 

> < > < > END OF EDIT *135 

47 

01564 

010167 

000314 

MOV 

R1,CWDPTR 

/SAVE FIND POSITION FOR NEXT TIME CALLED 


46 

01570 

005000 


INC 

R2 

Z SETS FIRST ZERO BIT IN WOROU 

49 

01572 

041109 

6$t 

BIC 

(Rl) ,R2 

/CLEAR ALL REST, LEAVING BIT Y OR OUR BLOK 

50 

01574 

050011 


BIS 

R2, CR1) 

/SET BIT IN MAP 

5i 

01576 

010067 

000304 


MOV 

R2 , CBTPTR 

/REMEMBER BIT FOR NEXT TIME 

52 

01602 

166701 

003360 


SUB 

BTMP AD » R 1 

/BYTE INDEX FOR FOUND BLOCK * 

53 

01606 

105709 


TSTB 

R2 

/IS BIT IN LOW HALF OF WORD 

54 

01610 

001001 


BNE 

85 

ZYUP, NO CHANGE 

55 

01612 

005901 


INC 

Rl 

/IN HIGH HALF, INC BYTE COUNT 

56 

01614 

006301 

8# I 

ASl 

Rl 

/NIBBLE (4 BIT) INDEX FOR FIND 

57 

01616 

032707 

170360 


BIT 

*170360, R2 

; IS BIT IN HIGH NIBBLE OF BYTE 

58 

01622 

001401 


BEQ 

95 

/NO, NOCHANGE 

59 

01624 

005201 


INC 

Rl 

/YES, SO I NCR NIBBLE COUNT 

60 

01626 

006301 

9$ I 

A8L 

Rl 

/CRUMB (2 BIT) INDEX FOR FOUND BLOCK 

61 

01630 

032709 

146314 


BIT 

*146314, R2 

I IS BIT IN HIGH CRUMB OF MloBLE 

62 

01634 

001401 


BEQ 

105 

/NO, NO CHANGE 

63 

01636 

00520 t 


INC 

Rl 

/ YES, SO I NCR CRUMB COUNT 

64 

01640 

006301 

5 08* 

ASL 

Rl 

/NOW HAVE BIT COUNT FOR BLOCK 

65 

01642 

032702 

125252 


BIT 

*125252, R2 

/IS BIT IN HIGH BIT OF CRUMP 

66 

01646 

001401 


BEQ 

115 

/NO, NO CHANGE 

67 

01650 

005201 


INC 

Rl 

/YES, SO ADD ONE 

68 

01652 

066701 

003414 

5 1*: 

ADD 

STBKNM,R1 

/AND FINALLY ADD *OF FIRST MAPPED BLOCK 

69 



z 




70 

71 

72 



9 < > 
9 

/THE ! 

< > < > 

<><><><>< 

> < > < > END OF EDIT *133 



FOLLOWING 

PIECE OF CODE CHECKS TO SEE IF THE CURRENT BLOCK TO BE 

73 



r allocated to 

THE CURRENT SPOOLING TASK EQUALS THE CBN OF THIS 

74 



rDlfSPOOLJNG TASKHF THIS IS TRUE 

:, THEN THE ^SPOOLER IS DECLARED FLOODED 1 

75 



f Tm I s 

HAPPENS 

ONLY ON A WRAP AROUND (ENTIRE SPOOLER AREA IS TREATED AS A 

76 



1 R TNG 

BUFFER) WHEN SPOOLING OPERATIONS ARE WAY AHEAD OF DESPOOLING OPERAT! 

77 



9 




78 



9 




79 



f*+**#N0TEi AS 

NEW TASKS ARE ADDED NEW CODE HAS TO BE ADDED***** 

60 

81 

82 



*********** SIMILAR TO THE CODE 

FOR EXISTING TASKS************** 

01656 

116009 

000009 

¥ 

MOVB 

2CR0) ,R2 

/ GET CURRENT TASK CODE 


83 

01662 

1227 02 
000004 


CMPB 

*LPCOD,R2 

/LP? 

84 

01666 

001411 


BEQ 

215 


85 

0 1 67p 

122709 

0<fl02wr? 


CMPB 

#CDCUD*200,R2 

/ NO, CD? 

86 

01674 

00141 1 


BEQ 

225 


87 

01 676 

122702 

000006 


CMPB 

*PLCOD,R2 

/NO, PL? 

86 

01702 

001019 


BNE 

265 


89 

01704 

016709 

003266 


MOV 

T ABPLC , R2 

/YES 

90 

01710 

000405 


BR 

305 


91 

01712 

016709 

003256 

91* t 

MOV 

TABPCB,N2 


92 

01716 

000409 


BR 

305 


93 



9 




94 

01720 

016709 

003254 

22* * 

MOV 

TABCDC t R2 


95 

01724 


30 *: 




96 

01724 

0201 19 


CMP 

Rl, CR2) 


97 

01726 

00141m 


BEQ 

5$ 


98 

01730 


?6* : 




99 

01730 



POP 

6*PS 

/ DEBUG/UNPROTECT 


01730 

012637 


MOV 

(SP)*,6#PS 




177776 



Figure 5-1 
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3P0LH.141 

MAC11 X VM V1A000 

1 PAGE 12+ 

find 

1 A FREE BLOCK n N DISK 


100 

101 

1734 

000207 

RETURN 


102 

103 

104 

105 

1736 

016703 

f 

f SnRR Y NO BLOCK 
1 <><><> < 
5561 MOV 

FREE?? SETUP TO 
>«><><>< 
AFNDBK »R3 

106 

1742 

003250 

POP 

R2 


1742 

01260? 

MOV 

(5P)+,R2 

107 

1744 


PUSH 

R3 


1744 

010346 

MOV 

R3 r * CSP) 

108 

1746 


PUSH 

R2 


1746 

010246 

MOV 

R2 f • CSP 5 

109 

110 

1750 

01160? 

j <><><> < 

5$ t MOV 

><><><>< 

CSP) ,R2 

111 

1752 

016616 

MOV 

2CSP), CSP) 

112 

1756 

00000? 

010266 

MOV 

R2i2CSP) 

113 

1762 

000B0? 

PUSH 

R0 


1762 

010046 

MOV 

R0,-(SP) 

114 

1764 


PUSH 

Ri 


1764 

010146 

MOV 

R l * - CSP) 

115 

1766 


PUSH 

R2 


1766 

010246 

MOV 

R2,-CSP) 

116 

1770 


PUSH 

R3 


1770 

010346 

MOV 

R3,-CSP) 

117 

1772 


PUSH 

R 4 


1772 

010446 

MOV 

R4,-(SP) 

118 

1774 


PUSH 

R5 


1774 

010546 

MOV 

RE) f - CSP ) 

119 

1776 

013767 

MOV 

##CTLCTf SDCTSV 


JRETURN WITH BLOCK # ON STACK 

HALT CURRENT OPERATION 

> < > < > START OF EDIT #135 

| ADDR IFINOBK' } ENTER WHEN NO BLOCK 

J STACK NOW /ENTER PS/CALL PC/ 

/MAKE IT /ENTER PS/ ADDR FINUBK/CALL PC 
t AND HOPE IT FALLS THRU 5 OK 

> < > < > END OF EDIT #135 
JDEBUGIGET OLD PSfBR HERE 1 bLK LEFT 

;debugj$et up pc 

f DEBUG JSET PS 


fSAVE CURRENT COUNT OF PDP-11 CTl 'CIS 


SPOL11.141 
TASK SOFTWARE 
1 
2 

3 

4 

5 

6 

7 

8 


002764 022760 
00000 1 
000004 
5 00277? 00 1 02? 
10 02774 122760 
000 ? 0 ? 


M A C 1 1 *VM V 1 A000 PAGE 17 
TNTEpRmPT DISPATCHER 

IsfNOIS in PIREX TRANSFERS CONTROL TO DEVINT BY A "CALL #SENP 11 ("COD *2 ) " 
|IF REQUESTED IN TCB, THIS IS DONE BY A CODE OF '3* IN BYTE-3 
j OF TCB, SPOOLER SETS THE ADDRESS OF DEVINT IN SENDll WHEN STARTED 

r 
r 
» 

OEvIwTl CMP #1*4(90) 


BNE 

CMPB 


;good completion?? 


5S ; BRANCH IF NO 

#RKCQD+200|TCODE(R0) JRK REQ,? 


00000 ? 

11 03002 001417 

12 03004 122760 

000204 

00000 ? 

13 03012 001406 

14 03014 12276a 

000205 

000002 

15 03022 001404 

16 03024 000167 

00177? 


BED RKINT 

CMPB #LPCOD + 200,TCODECR0) 7 LP REQ? 


BEQ 2$ 

CMPB #CDCOD+200,TCODECRD) ICO REQ? 


BEQ 3S 

JMP PLINT 


17 1 

is ; 

19 03030 000167 ?$t JMP IP I NT 

00053? 

20 ? 

21 03034 000167 3*s JMP COINT 

00201 4 


22 f 

23 I 

24 f 

25 03040 5 S i 

26 P304pi 000207 

27 t 

28 


RETURN 

, SBTTL RK INTERRUPT SERVICE 


Figure 5-1 (Cont.) 
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SP0UU.141 MACH XVM V1A000 PAGE 19 

RK INTERRUPT SERVICE 
1 1 

2 JDTSK WRITE REQUEST WAS HADE FOR A SPOOLED DEVICE 


4 003372 

016001 
0000 1 9 

WRTT5I 

MOV 

12 (R0) i R t 

FGET BUFFER AODRESS IN R1 ( 

5 003376 

010103 


MOV 

RliK3 


6 003400 

005021 


CLR 

CRD* 

PRESET HWDS 

7 003402 

003011 


CLR 

CR1) 


6 003404 



CAUL 

SIV0UF 


003404 

004767 

177036 


JSR 

PC i BI VBUF 


9 003410 

122760 


CMP8 

#PLCOD,DTCODfcCR0) FREQ MAOE FOR PL DEV? 


000006 

000026 





10 03416 

001450 


BED 

439 


11 03420 

122760 


CMPB 

#COCOD,DTCODECR05 FREQ MADE FOR CD DEV/ 


000005 

000026 





12 03426 

001436 


BEQ 

425 


13 



• I FNDF 

5LP 


14 


4 1 6 1 

MOV 

MDfcVST , R1 


15 



MOVB 

RI0PS7F,LPSPER(R1) IREPORT TASK NOT SUPPORTED 

16 



RETURN 



17 



.ENDC 



18 



.IPDF 

5LP 


19 


IWPITC 

REQUEST 

MADE FOR LP 


20 03430 

018701 

001586 

4 1 f 1 

MOV 

LPBM5A i R1 

F RESET LPBMSA 

21 03434 

1030H 


CURB 

CR1) 


22 03436 

018705 

00133* 


MOV 

TABLAD , R5 


23 03442 

016063 

000006 

000010 


MOV 

6CR0) ,LSB(R5) 

F SET LSB IN TABLE 

24 03450 

016703 

001306 


MOV 

LPONAD # R3 

F GET ADO OF LP8MS IN R3 

25 03454 

105713 


TSTB 

CR3) 

FFIRST TIME THROUGH?? 

26 03456 

001341 


BNE 

DONE 


27 03400 

105223 


INCB 

(N3)7 

F YES, BET SW, 

28 03462 

103213 


INCB 

CR3) 

F SET LPBMO 

20 03464 



CALL 

GETBUF 

FGET A BUFFER 

03464 

004767 

176674 


JSR 

PC, GETBUF 


30 03470 



PUSH 

#LPCOD 

F SETUP FOR GETPUT SAVE DEV CODE 

03470 

012746 

000004 


MOV 

#LPCOD ,*• C5P) 


31 



.ENDC 



32 03474 


44 # I 

PUSH 

#RE ADF 

F SAVE DISK FUN, 

03474 

012740 

000004 


MOV 

*KEADF,-(SP) 


33 03500 



PUSH 

R 1 

FSAVE BUFFER ADD 

03500 

010146 


MOV 

RU-CSP3 


34 03502 



PUSH 

NBNCR5) 

FSAVE BLOCK 0 


Figure 5-1 (Cont.) 
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8P0L1U141 MArll XVM VIA000 

RK INTERRUPT SPRVIcE 


PAGE 19+ 



03602 

016546 

000006 


MOV 

NBNCR5) ,-CSP) 



35 

03506 



CALL 

GETRKT 

/GET A RK TCB 



03506 

004767 

177056 


JSR 

pc,getrkt 



36 

03512 



CALL 

GETPUT 

/GET BLOCK 



03512 

004767 

176574 


JSR 

PC » GETPUT 



37 

03516 

062700 

000010 


ADD 

#10r5P 

I CLEAN STACK 


36 

03522 

000717 


BR 

DONE 

/CHECK REV & EXIT 


39 




.IFNDF 

SCO 



40 

03524 

013701 

001050 

42 A 1 

MOV 

##DEV$T,R1 



41 

03530 

112701 


MOVB 

WI0PS77,CDSPtRfRn /REPORT TASK 

NOT 



000077 

000043 






42 

03536 

000207 


RETURN 




43 




* ENOC 




44 




.IFDF 

SCO 



45 



/write 

REQUEST 

MADE FOR CO 



46 



42*3 

MOV 

CDBMSA'Rl 

/SET CDBMD 


47 



CLRB 

CR1) 



46 




MOV 

T ABCOT # R5 



49 




MOV 

6(R0),LSB(R5J 

/SET LSB IN TABLE 


30 




MOV 

CD ON AO # R4 

/YES. CDQNCE*0? 


51 




TSTB 

CR4) 



32 




BNE 

DONE 



53 




INCB 

CK4) 

/SET COONCE 


54 




INCB 

1CR4) 

/SET CDBM5 


55 




CALL 

GETBUF 

/GET A BUFFER 


56 




MOV 

R l # 7 (R4) 

/SET CDOBCP 


37 




CALL 

GETBUF 



56 




PUSH 

PCDCOD 

/SAVE DEV. CODE FOR GETPUT 

59 




BR 

44$ 

/ISSUE READ REQUEST 


60 




.ENOC 




61 




. IFNQF 

SPL 



62 

03540 

013701 

001059) 

43*3 

MOV 

MDEVST t R1 



63 

03544 

112761 


MOVB 

#I0PS77,PLSPER(Rn /REPORT TASK 

NOT 


0009)77 
00005 1 

64 03552 000207 

65 

66 
67 


RETURN 
, ENOC 
, IFDF $PL 
fWpJTE REQUEST MADE FOR PL 


66 

43*1 

MOV 

PLBMSA 9 R 1 

69 


CLRB 

CRD 

70 


MOV 

TABPLA,R5 

71 


MOV 

0CR0) ,LSBCR5) 

72 


MOV 

PL ON AO # R3 

73 


TSTB 

CR3) 

74 


8NE 

DONE 




Figure 5- 


? RESET PLBMSA 


/SET USB IN TABLE 

/ GET ADD OF PLBMS IN R3 
/FIRST TIME THROUGH?? 
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5P0L 1 1 • 1 4 1 MAC11 XVM V1A000 PAGE 21 

LP INTERRUPT SERVICE 
1 / 


2 


JTHIS SOUTINE 

HANDLES COHPLETION 

1 OF I/O SOFTWARE INTERRUPT FROM THE 

3 

A 


/Driver 

/ 

TASK IN PIREX, IT DESPOOLS THE SPOOLED DATA ONTO THE LP. 

s 


.IFDF 

SLP 


6 003554 

000 

LPnUMi i 

.BYTE 

0 

/UNUSED 

7 003555 

000 

UPnNCEl 

.BYTE 

0 

9 ONCE ONLY 5W 

6 003556 

000 

lPrmo: 

.BYTE 

0 

9 BLOCK IN MOTION SW 

0 003557 

000 

LPRUFSI 

.byte 

0 

/EMPTY BUFFER COUNT 

10 03560 

000000 

LPfBTPl 

0 


9 CURRENT BUFFER POINTER 

11 03562 

000000 

LPwDTP! 

0 


/CURRENT WORD POINTER 

12 03564 

000000 

l.PflBT P! 

0 


9 NEXT BUFFER POINTER 

13 


. ENDC 



14 


1 




15 


/ 




19 


, IFNDF 

SLR 


17 


lPtnt: 

MOV 

MDEVST,R1 


18 



MOVB 

#I0PS77,LPSPfcR(Rl) f REPORT TASK NOT SUPPORTED 

19 



RETURN 



20 



.ENDC 



21 



.IFDF 

SLR 


22 


/ 




23 03566 

016701 

001434 

LPTNTI 

MOV 

TABCRT » R 1 


24 03572 

052737 

000240 

177776 


BIS 

#LVL5, ##PS 

/INHIBIT disk interrupts 

25 03900 

022711 

177777 


CMP 

*"1, CR1) 

; ANY MORE TO DO? 

26 03604 

001014 


BNE 

IS 


27 03606 

016703 

001350 

il*: 

MOV 

LPON AD # R3 

/GET CCLPCBIP) IN R3 

28 03612 

105023 


CURB 

(N3) ♦ 

/RESET SW. '5 

29 03614 

1 05023 


CLRB 

(H3) + 

/BUMP TO LPBUFS 

30 03616 

105*23 


INCB 

CR3) + 

/RELEASE BUFF. 

31 03620 

011303 


MOV 

CR3) ,R3 


32 03622 



C ALL 

GIVBUF 

9 GIVE BACK BUFFER 

03622 

004767 

17684* 


JSR 

PC, GIVBUF 


33 03626 

042737 

000001 

001*48 

?Sl 

BIC 

#1 , ARSPOLSW 

/NO. SET LP IDLE SW 

34 03634 

000207 

30*: 

RETURN 



35 03636 

005711 

1*1 

TST 

(Nl) 

/YES. BLOCK IN MOTION? 

36 03640 

00104? 


BNE 

35 


37 03642 

016704 

00135? 

15*: 

MOV 

LPCPAD,R4 

/ SK" 124 YES, GET ADD OF LLPCPADBIP ; 

38 03646 

011403 


MOV 

CR4J ,R3 

/RELEASE BUFFER 

39 03650 



CALL 

GIVBUF 


03650 

004767 

17681? 


JSR 

PC, GIVBUF 


40 03654 

105244 


INCB 

-CR4) 


41 03656 

105764 

10* : 

TSTB 

-1 CR4J 

/BLOCK READ IN? 


Figure 5-1 (Cont. ) 
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SPOllUMi 

MAC 1 1 

XVM VI 

A000 PAGE 21+ 


LP 

INTERRUPT SERVICE 






177777 





42 

03662 

001403 


BEQ 

43 


43 

03664 



call 

WAITBK 



03664 

004767 

175530 


JSR 

PC,MITBK 


44 

03670 

000772 


BR 

105 


45 

03672 


4$i 




46 

03672 

016701 

001330 


MOV 

TABCRT * R 1 

F DEBUG 

47 

036 76 

016767 


MOV 

TABLE+NBN, TABLE+CBN j SET CBN«NBN 



00236* 

002352 





40 

03704 

012767 

000004 

002346 


MOV 

R4,TABLt*CRP 

FSET CRP 

49 

03712 

010703 


MOV 

PC,R3 

J GET LPO0IP ADD. IN R3 

50 

03714 

062703 

177650 


ADD 

#LP0BIP».,R3 


51 

03720 

011304 


MOV 

(R3) ,R4 

F GET GCLPQ8IP) IN R3 & BUMP TO TWDl 

52 

03722 

018467 


MOV 

T WO 1 (R4) ,TABLE + N9N F$ET LP.NBN 



000776 

002332 





53 

03730 

016707 

001264 


MOV 

LPCPAD,R2 

F GET ADD. OF LLPCPADoIP IN R2 

54 

03734 

01132? 


MOV 

(R3) , (R2) ♦ 

fse T LPCBIP 

55 

03736 

01131? 


MOV 

CR3), (R21 

1 SET LPWDIP 

56 

03740 

06271? 

000004 


ADD 

*4, (R2) 


57 

03744 

000419 


BR 

55 

t SEND WRITE REQ IF NOT SHUT DOWN 

58 

03746 

01670? 

001234 

35 1 

MOV 

LPCWAD,R2 

F GET ADD OF LPWDIP IN R2 

59 

03752 

017746 

00000m 


MOV 

PCR2) ,-CSP) 


60 

03756 

062716 

000005 


ADD 

#5, CSP) 

FEVEN BYTE COUNT 

61 

03762 

0 427 1 6 
177401 


BIC 

#177401, (SP) 


62 

03766 

061611 


ADD 

C8P),(R1) 

FBUMP CRP 

63 

03770 

06261? 


ADD 

CSP)+, (R2) 

F BUMP LPWDIP 

64 

03772 

032737 

04000m 

001046 

3 S l 

BIT 

#40000, ##SPOL$W 

F SHUT down? 

65 

04000 

00171? 


BEQ 

25 


66 

04002 

032737 
00000 1 
001046 


BIT 

#1 , ##SPOLSW 

F SHUT LP? 

67 

04010 

001706 


BEQ 

25 


68 

04012 

032737 

01000m 

001046 


BIT 

#10000, MSPOUSVi 

t SHUT DESPOOLER 

69 

04020 

001709 


BEQ 

25 


70 

04022 

00577? 

mm0mmrn 


TST 

6CR21 

F FIRST RECORD A .CLOSE? 

f 1 

0<»026 

001024 


BNE 

135 


72 

04030 

026161 

177776 

000004 


CMP 

"2 CHI) ,4(Rt) 

F ANY MORE DATA? 

73 

04036 

001003 


BNE 

145 


74 

04040 



CALL 

125 

F NO . SET TABLE ENTRIES 


04040 

004767 

000?4m 


JSR 

PC, 125 


75 

04044 

00066* 


BR 

115 

FRESET SWITCHES & EXIT 

76 

04046 

01570? 

00111* 

! 4 * 1 

MOV 

LPON AD , R2 

F DEBUG F SK*» 124 GET LPBUFS ADRKESS 

77 

04052 

06270? 

00000? 


ADD 

#2,R2 

F DEBUG F SK* 1 24 

78 

04056 

12271? 
000*0 1 


CMRB 

#1, CR2) 

FDE8UGFSK-124 ONE FREE BUFFER? 

79 

04062 

001267 


BNE 

135 

FSK-124 

80 

04064 

10576? 

177777 


TSTB 

-1 (R2) 

FDEBUGFSK-124 YES, BLOCK IN MOTION? 

61 

04070 

001284 


BNE 

155 

FSK-124 
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3P011 t • 1 4 1 MAClt XVM V1A000 PAGE 21+ 

LP INTERRUPT SERVICE 


82 84872 



CALL 

9S 

84872 

084767 

888146 


JSR 

PC t 9S 

83 84876 

84 

000661 

t 

BR 

15S 

85 


t 



86 84188 

011906 

1 3* i 

MOV 

9R2,R5 

87 84182 



call 

STUPLT 

84182 

084767 

17521? 


JSR 

PC , 5TUPLT 

88 84186 

015701 

081114 


MOV 

TABCRT ,Ri 

89 84112 

811204 


MOV 

CN2) ,R4 

68 84114 

017246 

68000111 


MOV 

♦ (R2) § m C5P) 

91 84126 

862718 

888006 


ADD 

#5, CSP) 

92 64124 

842716 

177401 


BIC 

*177401 , (SP) 

93 84138 

062604 


ADO 

CSP)+,R4 

84 84132 

01070? 


MOV 

PC,R2 

95 84134 

06276? 

177423 


AOO 

RLPBUF S» , , R2 

96 84148 

805714 


TST 

(R4) 

97 84142 

881417 


BEQ 

6$ 

95 84144 

022714 

177777 


CMP 

*-l, CR4) 

99 84156 

001414 


BEO 

6$ 

188 4152 

12271? 

008001 


CMPB 

*1 , (R2) 

181 4156 

001226 


BNE 

90S 

182 4168 

10574? 


TSTB 

• (R2) 

183 4162 

001224 


BNE 

909 

184 4164 

825161 

177776 

000004 


CMP 

•2(Rn#4(Rn 

185 4172 

001826 


BEQ 

90$ 

106 4174 



CALL 

99 

4174 

004767 

000044 


JSR 

PC , 99 

187 4286 

008615 


BR 

909 


108 

109 

110 


JSK-124 NO. GET NEXT BLOCK 

ISK-124 RELEASE BUFFER & WAIT FOR BLOCK TO COME IIN 

MO, SAVE BUFF ADD ON STACK 
} SET UP TCB TO UNTI A LINE 

JCHECK FOR BUFFER EMPTY 
I GET BYTE COUNT 

/EVEN BYTE COUNT 

JBUMP R4 TO POINT TO PT WORD OF NEXT 
MO, GET AOO OF LPBUFS IN R2 

HAST RECORD? 

ILPBUFS«1 

iyes, block in next? 

M0« MORE TO OOE CCBN-LSB) 

fSK-124 GET NEXT BLOCK 
ISK-124 EXIT 


9 

I 

f B uffer empty; test if more block to oo? 


111 

420? 

02616! 69 f 

177776 

000004 

CMP 

-2(Rl),4(Rn 

; MORE TO DO? (CBN*LSB) 

112 

4210 

00141? 

BEQ 

79 


113 

4210 

00901! 

CL R 

CR13 

fSK-124 SET CRP»0 

114 

4214 

12271? 

000001 

CMPB 

B 1 f CR2 ) 

;lpbufs»i? 

us 

4220 

001004 

BNE 

69 


lie 

4233 

10974? 

TSTB 

• CR2) 

JBLOCK IN TRANSIT? 

117 

4224 

00100? 

BNE 

89 

;SK»124 

lie 

4226 

4226 

004767 

00001? 

CALL 

JSR 

99 

PC, 99 

ISK-124 GET NEXT BLOCK 
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3P0LU.141 MACH XVM V1A000 PAGE 21 + 

LP INTERRUPT SrRvIcE 

119 4232 090167 9St JMP 90S /SK-125 

177376 

120 |Nn MORE BLOCKS TO DO 


121 

4236 

4236 

7*1 

004767 

000042 

CALL 

JSR 

12S 

PC, 12$ 

/SET TABLE ENTRIES 

122 

4242 

000773 

BR 

8$ 



123 t 

124 / 


120 



/sft 

NEXT BLOCK 




126 

4244 


96 f 

PUSH 

Rl 




4244 

010146 


MOV 

R1,-CSP) 



127 

4246 



PUSH 

R2 




4246 

010246 


MOV 

R2 , * C5P) 



126 

4250 



CALL 

GETBUF 

/YES, GET BUFFER & READ NEXT 

BLOCK 


4250 

004767 

176U« 


JSR 

PC , GETBUF 



129 

4254 

010104 


MOV 

R1,R4 

/SAVE BUFAO IN R4 


130 

4256 



POP 

R2 




4256 

012602 


MOV 

(9P)*,R2 



131 

4260 



POP 

Rl 




4260 

012601 


MOV 

CSP)+,R1 



132 

4262 

010467 

177276 


MOV 

R4 , LPOBIP 

/SET LPOBIP 


133 

4266 

105212 


INCB 

(R23 

/SET LPBMS SW 


134 

4270 

012703 

000004 


MOV 

#LPCQD,R3 

/GET DEV § CODE IN R3, 

FOR GETBLK 

139 

4274 

010102 


MOV 

R1,R2 

/GET LP* CRP ADD* IN R2 


136 

4276 



CALL 

GETBLK 

/GET BLOCK PROM DISK 



4276 

004767 

000604 


JSR 

pc,getblk 



137 

4302 

000207 


RETURN 


/ SK» 1 24 


136 








139 

4304 


1 2 6 * 





140 

4394 

012711 

177777 


MOV 

*-l,PRl 

/ SET CRP»M 


141 

4310 

012761 

177777 

000006 


MOV 

*-l,6(Rl) 

/SET LFB ■- 1 


142 

4316 

000207 


RETURN 




143 








144 




, ENOC 




145 




.SBTTL 

LP CALL SERVICE 
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LP CALI SERVICE 

1 I 

2 f THIS ROUTINE SERVICES cauls TO OUTPUT DATA ONTO THE LP, IT SPOOLS THE 

3 JDATA SENT BY THE CALLER ONTU THE DISK. 

4 7 

5 . IFDF SLR 


6 004320 

000 

LPnUMCl 

.BYTE 

0 

7 004321 

000 

LPrms: 

.BYTE 

0 

8 004322 

000000 

LPfBCPl 

0 


9 004324 

000000 

LPwDCPl 

0 


10 04326 

000000 

LPClBCPI 

0 


11 



,ENDC 


12 


7 



13 


7 



14 



.IFNDF 

SLP 

15 


LPtAI L« 

MOV 

##Dfc VST § R 1 

16 


MOVB 

#477,LPSPER(K1) 

17 



CALL 

DEQREQ 

18 



,ENDC 


19 



, IFDF 

$LP 

20 04332 

024141 

LPCAl.LI 

CMP 

-(Rl) ,-CRl) 

21 04332 

032737 

020000 

001046 


BIT 

*20000,**SPOLSW 

22 04340 

001433 


BEQ 

10$ 

23 04342 



PUSH 

Rl 

04342 

010146 


MOV 

R1,«CSP) 

24 04344 

0U101 


MOV 

CRD ,R1 

25 04346 

010104 


MOV 

R 1 1 R4 

26 04350 

01600? 

000010 


MOV 

10CR0) f R3 
R3 

27 0435 4 

00630? 


ASL 

26 04356 

063703 

000040 


ADD 

MMEMSIZ,R3 

29 04362 

111302 


MOVB 

(R3) , R2 

30 04364 

062702 

000005 


ADD 

n 5,R2 

31 04370 

042709 

177401 


BIC 

#177401,R2 

32 04374 

060201 


ADD 

R2 . R 1 

33 04376 

011606 


MOV 

(SPJ,R5 

34 04400 



PUSH 

-CR3) 

04400 

014546 


MOV 

-CR5) ,-(SP) 

35 04402 

006209 


ASR 

R2 

36 04404 

162601 


SUB 

(SP)+,R1 

37 04406 

022701 

000776 


CMP 

*7770 | R 1 

38 04412 

002462 


BLT 

4$ 

39 044U 



CALL 

COPBUF 

04414 

004767 

000356 


JSR 

PC i COPBUF 

40 04420 



POP 

R4 

04420 

012604 


MOV 

(SP)+,R4 

41 04422 



CALL 

6$ 


SPOL1 1 « 1 41 

MAC11 

X V M V 1 A 0 0 0 PAGE 22 + 

LP 

CALL 1 

5ERVIEF 





04422 

004767 


JSR 

PC, 6$ 



00027a 




42 

04426 

000408 


8R 

8$ 

43 



7 



44 

04430 

012760 

1 0 3 7 

MOV 

*7-600, 4 CR0) 



177200 






000004 




45 

04436 



PUSH 

Rl 


04436 

010146 


MOV 

R1,-(SP) 

46 

04440 

000167 


JMP 

DfcQRQ 



174576 




47 



7L AST 

RECORD 

WAS NOT A .CLOSE 

48 

04444 

005741 

RS i 

TST 

-CRH 


7 UNUSED 

7 BLOCK IN MOTION SW 
^CURRENT BUFFER POINTER 
f CURRENT WORD POINTER 
7 NEXT BUFF POINTER (DUMMY ) 


7POINT Rl TO LPWDCP 
7 SHUT SPOOLER? 


7 SAVE Rl. NO 

7 GET CONTENTS OF LPWDCP IN Rl,R4 
7 GET CALLER BUF, ADO. IN R3 
7 RELOCATE ADD, 


7GET BYTE COUNT FROM BUFFER IN R2 
7 ADD HWD BYTE COUNT ♦ EVEN BYTE COUNT 


7 BUMP LPWDCP BY THE SIZE OF NEXT RECD, 

7 GET LPWDCP ADD, IN R4 

7 POINT TO LPCBCP & SAVE CQNT. OF LPCBCP ON STACK 

7 CONVERT TO WORD COUNT 

7 COMPUTE SPACE REM, 

7 SPACE LEFT? 


7 COPY CALLER BUFFER 


7 TEMP SAVE Rl IN R2 
7 CHECK FOR , CLOSE 


7 NO 

7 SPOOLER SHUT DOWN, REPORT 


7 DUMMY 


7 PO I NT Rl LPCBCP 
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MAC 1 1 

XVM V1A000 PAGE 227 

LR 

CALL SERVICE 




49 

04446 

010102 


MOV 

R1,R2 

50 

04450 

00572t 


TST 

CR13 + 

51 

04452 

011101 


MOV 

(Rl) iRi 

52 

04454 

161201 


SUB 

(R2)*R1 

53 

04456 

022701 

00077* 


CMP 

#778, R1 

54 

04462 

003034 


BGT 

25 

55 

04464 

010701 

QS: 

MOV 

PC, HI 

56 

04466 

062701 

177636 


ADD 

#LPWDCP* , , R 1 

57 

04472 

005071 

00000* 


CLR 

PCRU 

58 

04476 



call 

FINDBK 


04476 

004767 

174736 


JSR 

PC , F INDBK 

59 

04502 



PUSH 

Ri 


04502 

010144 


MOV 

R 1 , * CSP) 

60 

04504 

016702 

177612 


MOV 

LPCBCP, R2 

61 

04510 

011662 

000776 


MOV 

(SP) ,TWD1 (R2) 

62 

04514 

01270* 

000004 


MOV 

#LPC0D,R3 

63 

04520 

016701 

000476 


MOV 

LPBMSA,R1 

64 

04524 

105211 


INCB 

(Rl) 

65 

04526 



CALL 

PUTBLK 


04526 

004767 

000376 


JSR 

PC , PUTBLK 

66 

04532 

015704 

000446 


MOV 

LPCbAD,R4 

67 

04536 


3S ! 

CALL 

GETBUF 


04536 

004767 

175622 


JSR 

PC f GETBUF 

68 

04542 

010124 


MQV 

Rl* (R4) + 

69 

04544 



POP 

(Rl) 


04544 

012611 


MOV 

(SP)+, (Rl) 

70 

04546 

062701 

000004 


ADD 

#4 * R 1 

71 

04552 

010114 


MOV 

Rl, (R4) 

72 

04554 


PS I 

call 

DEQREO 


04554 

004767 

174450 


JSR 

PC » QEQREQ 

73 

04560 


4$ l 

POP 

Rl 


04560 

012601 


MOV 

( SP) + , R 1 

74 

04562 



PUSH 

R3 


04562 

010346 


MOV 

R3,-CSP) 

75 

04564 



PUSH 

R2 


04564 

010244 


MOV 

R2,-CSP) 

76 

04566 

00507 l 
000000 


CLR 

A (R 1 ) 

77 

04572 



CALL 

FINOBK 


04572 

004767 

174642 


JSR 

PC, FINDBK 

78 

04576 



PUSH 

Rl 


04576 

010144 


MOV 

Rl ,• (SP) 

79 

04600 



CALL 

GETBUF 


04600 

004767 

175560 


JSR 

PC, GETBUF 

80 

04604 

011611 


MOV 

(SP) , (Rl) 

81 

04606 

016704 

000372 


MOV 

LPCBAD,R4 

82 

04612 



PUSH 

CR4) 


04612 

011444 


MOV 

(R4),-(SP) 

83 

04614 



PUSH 

(R 4 ) 


04614 

011446 


MOV 

(R4) ,-CSP) 

64 

04616 

062716 

000774 


ADD 

#TW01, (SP) 

85 

04622 

016436 

000*04 


MOV 

4(8P) , • (SP) ♦ 

86 

04626 

010124 


MOV 

Rl , (R4)7 

07 

04630 

062701 

000*04 


ADD 

#4 , R l 


/SAVE IN R2 

/ SUMP R 1 LPWDCP 

/GET CURRENT WORD ADD, IN R1 

/get remainning # of words 

/SPACE LEFT? 

/ GET ADD. OF LPWOCP IN R1 

/NO. PUT BUFFER ON DISK 
I GET DISK BLOCK * 

JSAve BLOCK # ON STACK 

/GET CCLPCBIP) IN R2 
/SAVE BLOCK « IN TWDi 

/GET LP.DEV CODE IN H3 
/SET LPBHSA 

/PUT BUFF, ON DISK 

/GET ADD, OF LLPCBADbCP IN R3&R 4 
/GET A NEW BUF 

/SET LPCBCP»BUFAD 

/SET BLOCK # IN HND0 OF NEW BUFF, 

/BUMP R2 TO WORD 2 OF BUF 
/SET LPWDCP 

f ufcQUE REQUEST S EXIT IN WAIT STATE 

/RESTORE ADD, OF CURRENT 'wORU IN H 1 
/SAVE R3,R2 

/SET BUFF, END SW 
/ GET DISK BLOCK * 

/SAVE BLOCK # 

/GET A BUFF, 

/SET BLOCK # IN HWD0 OF NEW BUFF. 

/GET ADD, OF LLPCBADBCP IN R4 

/SAVE CONT, OF LPCBCP 

/BUMP TO TWDI 

/SET LINK IN OLD bUF F , 

/SET LPCBCP & BUMP TO LPWDCP 
/POINT TO WORD 2 IN BUFF, 
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IP CALL SERVICE 


66 04634 



PUSH 

R4 

PSAVE LPWDCP ADD, ON STACK 

04634 

010446 


MOV 

R4,-(SP) 


89 04636 

010114 


MOV 

Rif CR4) 

1 SET LPWDCP 

00 04640 

010104 


MOV 

Rl ?R4 

P GET CONT, OF LPWDCP 

01 04642 

01660? 

000006 


MOV 

6 (SP) f R2 

PRESTORE R3fR2 

02 04646 

016603 

000010 


MOV 

10 (SP) f R3 


03 04652 



CALL 

COPBUP 

P COPY CALLER BUFFER 

04652 

004767 

000120 


J3R 

PC » COPBUP 


94 04656 



POP 

R4 

PSAVE LPWDCP ADO, IN R4 

04656 

012604 


MOV 

CSP) + f R4 


95 04660 



POP 

R2 

P CONT » OF LPCBCP ON STACK T0P??7 

04660 

012602 


MOV 

(SP)+fR2 


96 0466e 

012703 

000004 


MOV 

RLPCOD f R3 

P GET DEV, CODE IN R3. FOR PUTBLK 

97 04666 

062706 

000096 


ADD 

RftfSP 

P CLEAN STACK 

98 04672 



PUSH 

R4 

PSAVE R5 

04672 

010446 


MOV 

R4,-CSP) 


99 04674 

016701 

00032? 


MOV 

LPBMSA'Rl 

PSET LP8MSA 

100 4700 

i05?n 


INCB 

CRD 


101 4702 



CALL 

PUT0LK 

PRUT BUFF, ON DISK 

4702 

004767 

000222 


J8R 

PC # PUTBLK 


102 4706 



POP 

R4 

PTEMP SAVE Rl 

4706 

012604 


MOV 

(SP)+ r R4 


103 4710 



CALL 

6* 

P CHECK FOR , CLOSE 

4710 

004767 

00000? 


JSR 

PC f 65 


104 4714 

000717 


BR 

2* 


105 4716 

010401 

6S l 

MOV 

R4 1 R 1 

PSAVE R4 

106 4720 

011104 


MOV 

CRD#R4 

P GET C (LPWDCP) IN R4 

107 4722 

022764 

006414 

177776 


CMP 

RLPCLOS f **2 (R4) 

IFF+CR?? 

108 4730 

001021 


BNE 

7» 


109 4732 

010104 


MOV 

RifR4 

PRESTORE R4 

110 4734 



ADR 

TABLE+Lf B,R2 

P GET LP.LFB ADO, IN R2 

4734 

01070? 


MOV 

PC f R2 


4736 

06270? 

001330 


ADD 

RTABLE+LFB-.i R2 


111 4742 

016701 

000236 


MOV 

LPCBADf Rl 


112 4746 



PUSH 

(R2) 

PSAVE OLD LFB 

4740 

011246 


MOV 

(R2) f * (SP) 


113 4750 

0 1 7 1 1 ? 
00000? 


MOV 

PCRDf (R2) 

PSET LFB IN TABLE 

114 4754 

011101 


MOV 

(Rl) f R l 


115 4756 



POP 

2 (Rl) 

PSET OLD LFB IN BUFFER 

4756 

012661 

00000? 


MOV 

( SP) ♦ » 2 (R 1) 


116 4762 

012761 

177777 

000774 


MOV 

#«lfTMD0(Rl) 

PSET EOF CODE IN BUFFER 

117 4770 

005726 


T3T 

(SP)+ preturn 

TO 9 (NOT SUB RETURN) 

118 4772 

000634 


BR 

9* 


119 4774 

120 

000207 

7*1 

P 

RETURN 



121 


• ENDC 



122 4776 

123 4776 

026737 

175124 

001066 

C0PB1 IF t 

CMP 

SOCTSVf PRCTL^T 

P DEBUG 

124 5004 

001005 


BNE 

IS 


125 5006 

012324 


MOV 

(R3) ♦ » (R4)+ 

P COPY CALLER BUFFER 

126 5010 

00530? 


DEC 

R2 


127 5012 

001371 


BNE 

COPBUP 


128 5014 

010476 

00000? 


MOV 

R4,P2(SP) 
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9P0L11.141 MAC 1 1 XVM V1A000 PAGE 23 

PL INTERRUPT SERVICE 
1 9 


2 



•THIS ROUTINE 

HANDLES COMPLETION 

1 OF I/O SOFTWARE INTERRUPT FROM THE 

3 



fOPlVER 

TASK IN PIREX, IT DESPoOLS THE SPOOLED DATA ONTO THE X Y PLOTTER 

4 

8 



9 

• IFDF 

»PL 

* 

6 



PLOUMlI 

.BYTE 

0 

JUNUSED 

7 



PlnNCEl 

.byte 

0 

;ONCE ONLY 5W 

8 



PLPMOI 

.BYTE 

0 

9 BLOCK IN MOTION SW 

9 



PLRUPSI 

.BYTE 

0 

9 EMPTY BUFFER COUNT 

10 



PLCBIP* 

0 


J CURRENT BUFFER POINTER 

11 



PLW0TPI 

0 


^CURRENT WORD POINTER 

12 



PLnBTPl 

0 


INEXT BUFFER POINTER 

13 




.ENOC 



14 



9 




19 



9 




10 



.IFNDF 

*PL 


17 

09022 

013701 

001090 

PLINTI 

MOV 

•#DEVST,R1 


18 

09228 

112781 


MO VB 

#I0PS77,PLSPtR{Rn IREPORT TASK NOT SUPPORTED 



000077 

000091 





19 

09034 

000207 


RETURN 



20 




.ENOC 



21 




• IFDF 

*PL 


22 



9 




23 



PL TNT 1 

MOV 

TABPDT #R1 


24 




BIS 

#LVL9, PRPS 

IINHIBIT DISK INT. 

29 




CMP 

0- lr CR1) 

iany more TO DO? 

26 




BNE 

19 


27 



11*1 

MOV 

PL0NAD#R3 

9 GET C (PLCBIP) IN R3 

28 



CLRB 

CR3J + 

IRESET SW.'S 

29 




CLRB 

CR3J + 

1 BUMP TO PLBUF8 

30 




INCB 

(R3) ♦ 

irelease buff. 

31 




MOV 

CR3J,P3 


32 




call 

GIVBUF 

jgive back buffer 

53 



2*1 

BIC 

P4,P#SP0LSW 

JNO. SET PL IDLE SW 

34 



90*1 

RETURN 



39 



1*1 

TST 

0*1) 

I YES. BLOCK IN MOTION? 

36 




BNE 

3* 


37 



1 9*1 

MOV 

PLCIA0#R4 

|SK~124 YES. GET ADD OF PLCBIP IN R2 

38 




MOV 

(R4) i R3 

f RELEASE BUFFER 

39 




CALL 

GIVBUF 


40 




INCB 

-CR4D 


41 



10*1 

TSTB 

*1(R4) 

9 BLOCK READ IN? 

42 




BEQ 

4* 


43 




CALL 

WAITBK 

INO 

44 




BR 

10* 


49 



4*1 

MOV 

TABPDT t R2 


46 




MOV 

2 (R2) , *2 (R2) 

;SET CBN«NBN 

47 




MOV 

P4 | (R2) 

JSET CRP 

46 




MOV 

PLOI AD » R3 

;get plobip ADD. IN K3 

49 




MOV 

(R3) # R4 

f GET C(PLOBIP) IN R3 & BUMP TO TWO! 

90 




MOV 

TWO! CR4) f 2 (R2) 

1 SET PL.NBN 
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SP0L1U141 

MAC11 

XVM V1A00C 

I PAGE 23+ 


PU INTERRUPT 

SERVICE 




31 


MOV 

R2,R1 

1 SA VE PL • CRP ADD. IN R1 

52 


MOV 

PLCIAD,R2 

1 GET ADD. OF PLCBIP IN R2 

53 


MOV 

(R3) , C R 2 3 ♦ 

>SET PLCBIR 

54 


MOV 

(R3) , (R2) 

f SET PLWDIP 

55 


ADO 

#4, (R2) 


56 


BR 

53 

J SEND WRITE REQ IF NOT SHUT UOWN 

37 

33* 

MOV 

PLWD AD , R2 

f GET ADD OF PLWDIP IN R2 

38 


MOV 

0 (R2 ) , " C8P) 


59 


ADD 

#5, CSP) 

t EVEN BYTE COUNT 

60 


BIC 

#177401, (SP) 


61 


ADO 

C8P)HRi) 

f BUMP CRP 

62 


ADD 

(SP)+, CR2) 

1 BUMP LPWDIP 

63 


BIT 

#40000, MSPOUSW 

f SHUT DOWN? 

64 


BED 

23 


65 


BIT 

#4,M5P0LSW 

? SHUT PL? 

66 


BEQ 

23 


67 


BIT 

#10000, ##SP0LSW 

1 SHUT DESPOOLER 

68 


BEQ 

23 


69 


TST 

KR2) 

HAST RECORS? 

70 


BNE 

133 


71 


CMP 

-2(R1) ,4{R1) 

/YES, ANY MORE DATA? 

72 


BNE 

143 


73 


CAUL 

123 

/NO. SET TABLE ENTRIES 

74 


BR 

113 


75 

1 4$ I 

MOV 

PL0NAD,R2 

;SK-124 GET PLBUFS ADDRESS 

76 


ADD 

#2 , R2 

fSK-124 

77 


CMPB 

#1 t CR2) 

/ SK« 124 ONE FREE BUFFER? 

79 


BNE 

133 

/SK-124 

79 


TSTB 

-1 CR2) 

/SK-124 YES. BLOCK IN MOTION 

80 


BNE 

153 

;SK«124 

81 


CALL 

93 

/ SK-l 24 NO. GET NEXT BLOCK 

82 


BR 

153 

/ SK*» 1 24 WAIT FOR BLOCK TO COmE IN 

83 





84 

13$ s 

MOV 

•R2,R5 

/NO. SAVE BUFF ADD ON STACK 

85 


CALL 

STUPPT 

; SET UP TCB TO UNTI A LINE 

86 


MOV 

PC, HI 

/ GET PL, CRP ADD. IN R1 

87 


ADD 

#T ABLE+PLTEOP^. 

+ 4 , R 1 

88 


MOV 

CR2) ,P4 

/CHECK FOR BUFFER EMPTY 

89 


MOV 

0 ( R2) , " (SP) 

/ GET BYTE COUNT 

90 


ADD 

#5, CSP) 

/EVEN BYTE COUNT 

91 


BIC 

#177401, (SP) 


92 


ADD 

CSP)+,R4 

1 BUMP R4 TO POINT TO PT WORD OF NEX 

93 


MOV 

PC , R2 

INO. GET ADD OF PLBUFS IN R2 

94 


ADD 

#PLBUFS-.,R2 


95 


TST 

CR4) 

/LAST RECORD? 

96 


BEQ 

63 


97 


CMP 

#-l, CR4) 


98 


BEQ 

63 


99 


CMPB 

#lr CR2) 

iPLBUFSal 

100 


BNE 

90S 


101 


TSTB 

-CR2) 

/YES, BLOCK IN NEXT? 

102 


BNE 

503 


103 


CMP 

•2 (R 1) , 4 (R1 ) 

»NQ. MORE TO DOE CCBN»LSB) 
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3P0L11.141 

MACH XVM VIA00G 

) PAGE 28 

ADDRESS 1 

table 




1 

2 



.SBTTl 

ADDRESS TABL& 

3 005160 


f 

ADRT0U 



4 005160 

002356 

RKCAPI 

# WORD 

RKTCBP 

5 



.IFDF 

SLP 

6 005162 

003553 

LPflNADl 

.WORD 

LPONCE 

7 



.ENDC 


6 005164 

006304 

tarplai 

.WORD 

TABLE+PLTEOF 

9 



. IFDF 

SPL 

10 


PLnNAOl 

.WORD 

PLONCE 

11 



.ENDC 


12 05166 

005876 

STmPADI 

.WORD 

BTMPST 

13 05170 

005978 

STRKNAI 

.WORD 

STBKN* 

14 05172 

006054 

TABIADI 

.WORD 

TABLE 

15 05174 

006056 

TARPrBI 

.WORD 

TABLE+CBN 

16 05176 

006306 

TARPl Cl 

.WORD 

TABLE+PLTEOFtCBN 

17 05200 

006070 

tarcdci 

.WORD 

TABLE+CDTEOF+C0N 

16 05202 

006364 

TCRKi Al 

.WORD 

TCBDK1 


19 



*. I F 0 F 

SCO 


20 



CDCPADI 

.WORD 

cdcbjp 

21 



CDrBADI 

.WORD 

CDCBCP 

22 



.ENDC 


23 




.IFDF 

SLP 

24 

05204 

004322 

LPCBADI 

.WORD 

LPCbCP 

25 

05206 

003302 

LPCWAD! 

.WORD 

LPWOIP 

26 




.ENDC 


27 




.IFDF 

SPL 

28 



PLCBADI 

.WORD 

PICBCP 

29 



PLwOADf 

.WORD 

PLWDIP 

30 




.ENDC 


31 

05210 

006412 

TCRK3AI 

.WORD 

TCBDK3 

32 

05212 

00144 0 

AFnDBKI 

.WORD 

FINDBK 

33 

05214 

002124 

ASpLFUI 

.WORD 

SPLPUL >#*139## 

34 

05216 

006742 

bufladi 

.WORD 

BUFLHD 

36 




.IFDF 

SLP 

36 

05220 


lpcpadi 



37 

05220 

003366 

LPrzAOi 

.WORO 

LPCblP 

36 

05222 

004321 

LPRMSAI 

.WORD 

lpbms 

39 




.ENDC 


40 

05224 

006270 

tarcoti 

.WORD 

TABLE+CDTEOF 

Al 

05225 

006260 

tarcrti 

.WORD 

TABLE+CRP 

42 

05230 

006310 

TARPHTI 

.WORD 

TABLE+PLTEOF+CRP 

43 




.IFDF 

SPL 

44 



PLCI ADI 

.WORD 

PLCBIP 

45 



PLnIADi 

.WORD 

PLOBIP 

46 



PLRM8AI 

.WORD 

PLBMS 

47 




.ENDC 


46 




. IFDF 

SCD 

49 



CDRM3A 1 

.WORD 

cdbms 

50 



cdtntai 

.WORD 

CDINT 

51 




.ENDC 


52 

05232 

006274 

tardcti 

.WORD 

table+cdteof*crp 

53 

05234 

005070 

CDrAADl 

.WORD 

CDCALL 


Figure 5-1 (Cont.) 
UNICHANNEL Spooler Components 
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> 


Figure 5-2 

Task Call Service Routine 
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Set the SPOOLER task control lines 19-23 

registers 

Setup the disk TCB pointer 
table 

Setup and initialize BITMAP 
Initialize and setup TABLE 
Set the SPOOLER switches 


LINE PRINTER OPERATIONS: 


Initialize the LP call service 
routine switches and pointers 

Clear all pending LP task re- 
quests in PIREX get a free 
block on disk/ get a buffer. 

Set the NBN entry in TABLE. 

Process the next SPOOLER 
request 


5.5.2 LP SPOOLING 


All requests issued to spooled tasks (TCN = 0-177) after a 'BEGIN' 
directive to the SPOOLER/ are processed by the SPOOLER. This is effected 
by PIREX. When the LP handler in the XVM issues a request to the LP 
driver task in PIREX, the SPOOLER processes this request. The 'request 
dispatcher' transfers control to the 'LP call service routine' and the 
following operations are performed (refer to Figure 5-1): 


Get the current word pointer 
address 

page- 

22, line 

Check if spooling operations are 
disabled and, if disabled, exit 

lines 

26, 22 

Point to the current word 

lines 

26, 25 

Get the caller's buffer address 
and relocate that address 

lines 

26-28 

Get the byte count of the 
current record, add the header 
word byte count, and make the 
byte count even 

lines 

29-31 

Move ahead the current word 
pointer by the size of the 
current record 

line 

32 

Compute the space remaining in 
the current buffer 

line 

33-36 

Is the buffer full? 

lines 

37-38 


lines 25-33 

lines 35-54 
lines 55-64 
lines 65-67 


lines 94-95, 101-104 
lines 96-98 

line 100 
line 120 
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Copy the caller's buffer 

lines 

39, 123-127 

Check for a .CLOSE record 

lines 

41, 105-108 

The record is not a .CLOSE; one 
more record can fit. Process 
the next request 

lines 

42, 48-54 

The record is a .CLOSE record; 
save the old Last File Block 
(LFB) in TABLE 

lines 

109, 110, 11 

Set the new LFB in TABLE 

Line 

113 

Set the old LFB in Header word 2 
of the buffer 

lines 

114, 115 

Set an end of file indicator in 
the buffer 

line 

116 

Go to line 55 



The buffer is full. Set an indi- 
cator to this effect in the 
buffer 

lines 

55-57 

Get a free block on disk (FINDBK) 

line 

58 

Set a pointer to the next block 
in trailer word 1 

lines 

59-61 

Set the "write block in motion" 
switch 

lines 

63, 64 

Put the buffer on disk (PUTBLK) 

lines 

62, 65 

Get another buffer (GETBUF) 

line 

67 

Set the "current buffer" pointer 
for the new buffer 

lines 

66, 68 

Set the block number in the 
current buffer 

line 

69 

Set the current word pointer to 
word 2 in the buffer 

lines 

70, 71 

Process the next request 

line 

72 


As disk blocks are written on the disk the Last Spooled Block (LSB) 
entries in TABLE are updated when the completion of I/O interrupt is 
processed by the 'disk interrupt service routine' in the SPOOLER 
(RKINT) . 

5,5.3 LP Despooling 

When the LP device is idle and the first spooled data block is written 
onto the disk the despooling operations are started in the RKINT routine 
as follows (refer to Figures 5-1 and 5-3) . 
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K^IMT 


WHAT FUNCTION?! 


CLEAR BLOCK IN 
MOTION SWITCH 

i 


DECREMENT FREE 
BUFFER SWITCH 

\ 


| FIRST 

READ? ] 




UPDATE CBN, CRP, CBN 
IN TABLE 


OUTPUT TASK? 


1 



UPDATE LSB 
IN TABLE 

i 


TASK 

IDLE? 1 



SET b: 
MOT 101 

LOCK IN 
SI SWITCH 

1 



go to doneI ^ H start up task] 


CALL , G E . Tflh K 


GO TO DONE 


Figure 5-3 

Device Interrupt Servicing Logic (For LP) 
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WRITE PROCESSOR: 

Reset the "write block in 
motion" switch 

Set the LSB in TABLE 

LPONCE = 0, first time 
through set LPONCE = 1 

Set the "read block in 
motion" switch 

Get a buffer (GETBUF) 

Get a disk TCB (GETRKT) 

Read a block from disk 
(GETPUT) 

Return the disk TCB and 
then EXIT 

READ PROCESSOR: 

Is the block read = LFB? 

Yes, set LFB = 1 

Reset the "read block in 
motion" switch 

Decrement the LP free buffer 
count 

LPONCE = 1, first time 
through, start up LP 

Set Current Block Number 
(CBN) in TABLE 

Set the current despooling 
buffer pointer 

Set the current despooling 
word pointer 

Set the Next Block Number 
(NBN) in TABLE 

Set Current Record Pointer 
(CRP) in TABLE 

Set LPONCE = 2 

LP despooling is not shut 
down; send the LP write 
request 

Set the LP busy switch 

Return the disk TCB and then 
EXIT 


page 19, lines 20, 21 

lines 22, 23 
lines 24-27 

line 28 

line 29 
line 35 

lines 32-34, 36, 37 
line 38 


page 23, lines 43-45 
line 46 
line 48 

line 49 

lines 50-53 

line 66 

lines 67-68 

lines 69-70 

lines 71-72 

line 73 

line 54 
lines 55-58 

line 60 


Once despooling operations are started the ' LP interrupt service 
routine' continues the despooling operations until there is no more 
data to be despooled. 
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The following operations are performed here (refer to Figure 5-1) : 


Protect against a disk 
interrupt 

There's nothing more to do; 
reset LPONCE 

Reset LPBMD and increment the 
free buffer count 

Return the buffer (GIVBUF) 

Set the LP idle switch and 
return 

There's more to do; a block is 
in motion 

Release the buffer (GIVBUF) 
Increment the free buffer count 
Wait for a block to be read in 
Set CBN - NBN in TABLE 
Set CRP in TABLE 
Set NBN in TABLE 

Set the current despooling buffer 
and word pointer 

Shut down? Shut LP? Shut 
despooler? 

Current record in buffer is a 
.CLOSE record, check if more 
blocks to do 

There are no more blocks reset 
TABLE entries, switches and 
then exit 

One free buffer and no block 
in motion 

Get next block 

Release buffer and wait to 
come in 

The first record is not a .CLOSE, 
send an LP write request 

Point to the first word of the 
next record 

There are more records left and 
one free buffer 

There is no read block in motion 
and more blocks to do 

Get next block 

Return from interrupt call 


page 21, line 24 

lines 25-28 

lines 29, 30 

lines 31, 32 

lines 33, 34 

lines 35, 36 

lines 37-39 
line 40 
lines 41-44 
line 47 
line 48 
lines 49-52 
lines 53-56 

lines 64-69 

lines 70-72 

lines 74, 77, 121-123 

lines 76-81 
line 82 

lines 83, 37-44 
lines 86-87 
lines 89-93 
lines 96-101 
lines 102-105 
lines 106, 126-137 
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5.5.4 SPOOLER Shutdown 


All spooling operations can be terminated by issuing the 'END' directive 
to the SPOOLER. The following operations are performed (refer to 
Figure 5-1) : 


Protect shutdown routine 

Clear any pending SPOOLER wakeup 
requests 

Allow devices to run down 

Shut down LP task 

Turn off SEND11 

Test if shut down due to disk 
error 

If "END" shutdown, tell "SP0L15" 
that it has occurred 

Disconnect SPOOLER 


page 9, line 7 
line 8 

lines 13-18 
lines 20-23 
lines 32-34 
lines 35-36 

lines 37-39 

lines 40-41 
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CHAPTER 6 

SPOOLER TASK DEVELOPMENT 


6 . 1 INTRODUCTION 

This chapter discusses in detail the procedure for developing a spooled 
task, and, for integrating it into the SPOOLER software. The develop- 
ment of a spooled task 1 in the UC15 system begins with the development 
and installation of the task under the PIREX system, if not already 
present (see Chapters 4 and 5) . 

Once this has been done, the following summary describes the steps 
necessary to integrate it into the SPOOLER softwares 

1. Design and code the call service routine. (Refer to Figure 

6 - 1 .) 

2. Design and code the interrupt service routine. (Refer to 
Figure 6-1.) 



CALL side INTERRUPT side 


Figure 6-1 
SPOOLER Schematic 


NOTE 

The logical structure of the ’task call 
service routine' and the 'task interrupt 
service routine ' depends upon whether the 
task is an input or an output task. The 
'task call service routine' is the de- 
spooler for an input task and it is the 
spooler for an output task. The 'task 
interrupt service routine' is the spooler 
for input tasks and it is the despooler 
for output tasks. 


There is no program logic or coding connections between the device 
driver tasks under PIREX and the spooler task. All communication to 
the device driver is through the TCR only. 
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3. Add code in the RKINT routine to handle the disk read or 
write operations for this task. 

4. Code a routine to setup TCB and issue request. 

5. Add a TCB for this task. 

6. Add code to the BEGIN directive processing routine to initia- 
lize, and, (if necessary) startup this task. 

7. Add code to the END directive processing routine to clear up 
this task. 

8. Add code to the 'request dispatcher' to dispatch calls to 
this routine. 

9. Add code to the 'device interrupt dispatcher' to dispatch 
interrupts from this device. 

10. Increase the size of TABLE by 6 words if not sufficient. 

11. Add entries of frequently addressed tags to the central 
address table. 

12. Update DEVCNT and DEVSPP to ensure sufficient buffers and 
TCBs • 

13. Update FINDBK routine. 

The remaining sections describe the above steps in more detail. The 
Line Printer spooler task is used as a descriptive example. 

6.1.1 Call Service Routine 

This is the routine that normally processes calls from the handler 
on the XVM . For an output task this routine spools data onto the 
disk as indicated in Section 5.3.3. The operations performed by this 
routine are discussed in detail in Section 5.4.2. 

Normally, data from records are copied into a buffer until it is full. 
As soon as a buffer is full, it is written onto the disk with a 
pointer to the next block? and then a new buffer is obtained. This 
process is continued until a special record that indicates the end of 
the file is received. For the Line Printer, this is a record with 
form feed and carriage return characters only. On receipt of this 
record, the call service routine copies this record into the current 
buffer and writes it out; regardless of whether the buffer is full or 
not. This is done to ensure complete processing of a distinct logical 
entity, a file. The call service routine sets only the LFB entry in 
the TABLE. It uses the utility routines GETBUF, FINDBK, PUTBLK, and 
DEQREQ. 
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6.1.2 Interrupt Service Routine 

Completion of I/O interrupts from the device driver in PIREX is pro- 
cessed by this routine. For an output task, this routine despools the 
data onto the device as indication in Section 5.3.5. The operations 
performed by this routine are discussed in detail in Section 5.4.3. 

The interrupt service routine for the Line Printer despools data from 
the buffer onto the device by issuing requests to the task running 
uider PIREX. This routine, like other despooling routines in the SPO- 
OLER, is double buffered to increase throughput. Provision is made 
in the routine to wait for a block to be read into core during heavy 
disk utilization. This is done using the "block in motion" switch. 

6.1.3 Code to Handle the Disk Read/Write Operations 

All spooled tasks must perform certain functions on completion of a 
read/write block disk operation, as, Section 5.5.3 describes in detail. 

On completion of a read disk block request the TABLE entries must be 
updated and the Line Printer started up if idle. If the Line Printer 
is busy, control is transferred to the "DONE" section of code where 
the disk TCB is returned to the pool and control is relinquished. 

On completion of a "write block on disk" request, the buffer is returned 
and the LSB entry in TABLE is updated. If the Line Printer is idle, 
a request is issued for the Line Printer task to read in the next de- 
spooling block. This is done by supplying the NBN^ entry in TABLE for 
the Line Printer. If the Line Printer is not busy or after issuing 
the read request as in read, control is transferred to the 'DONE 1 
section of code. 

6.1.4 Routine to Setup TCB and Issue Request 

These operations are performed at several places in the SPOOLER. To 
optimize code this subroutine performs the TCB setup and request 
issuing functions. 


1 


See 


Section 5.4.7. 
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The Line Printer routine performs the following operations (Figure 
5-1) at tag STUPLT: 

Get the address of the LP TCB 

Go to setup common 

Set the buffer address specified 
in the TCB 

Reset the REV in the TCB 
Issue the request 
Return control 

6.1.5 TCB 

The format of the TCB used by spooler tasks is almost identical to the 
format of TCBs for tasks running under PIREX, except for the disk 
TCB which has an extra word. The extra word is used to store the TCN 
of the task for which the I/O transfer was requested. Another dif- 
ference is that the TCN present in word 1 1' of all TCBs in the SPOOLER 
has the unspooled bit set, i.e., TCN' = 200 g + TCN (0-177g) . This is 
to prevent the request from being queued to the SPOOLER. Also, word 
'O' of all TCBs contains the SPOOLER task code instead of the API 
information. This is to permit PIREX to transfer control to the 'device 
interrupt dispatcher 1 in the SPOOLER on receipt of an I/O completion 
interrupt from a SPOOLER request. 

6.1.6 Initialization in the BEGIN Routine 

All SPOOLER tasks have to be initialized before starting of spooling 
operations. The initialization normally consists of setting the 
pointers, switches and variables to the right value, obtaining buffers, 
block number on disk, etc. Section 5.5.1 explains these operations 
for the Line Printer in more detail. 

6.1.7 Cleanup in the END Routine 

All SPOOLER tasks have to be cleaned up before termination of spooling 
operations. The cleanup for the Line Printer consists of stopping the 
LP driver task in PIREX and clearing all pending requests in the 
task's TRL . 


page 11, lines 18-19 
line 20 
line 31 

lines 32-33 
line 34 
line 35 
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6.1.8 Updating the Request Dispatcher 

The request dispatcher in the SPOOLER contains code to check the TON 
of the current request being processed and to transfer control to the 
appropriate routine. For the Line Printer (Figure 5-1) this is done at: 

page 6, lines 36-38, 73 

6.1.9 Updating the Device Interrupt Dispatcher 

The SPOOLER is informed of completion of I/O requests through the 
PIREX Software Interrupt facility. PIREX calls the device interrupt 
dispatcher, which determines the task that issued the request and 
transfers control to the tasks interrupt service routine. 

For the Line Printer this is done at: 

page 17, lines 12-13, 19 

6.1.10 Updating TABLE 

The TABLE contains the complete record of the data being spooled and 
despooled. Each task has a 6 word entry in this TABLE. TABLE size 
must be increased (change the ’BLOCK XXX' statement at page 33, line 73) 
based upon the number of tasks in the SPOOLER. Currently there is 
sufficient space in the TABLE for 3 additional tasks. 

6.1.11 Updating the Central Address TABLE 

Code optimization in a PIC program is done by maintaining a table of 
addresses for frequently used tags. This table contains the unre- 
located addresses of tags at assembly time. These are converted to 
absolute addresses (by adding the SPOOLER first address) by the once 
only section of code in the SPOOLER (Figure 5-1, page 6, lines 12-26). 

For the Line Printer (Figure 5-1) the following tags are present in 
this table: 


LPONCE 

page 28, line 

6 

TABPCB 

line 

15 

LPCBCP 

line 

24 

LPWDIP 

line 

25 

LPCBIP 

line 

37 

LPBMS 

line 

38 
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6.1.12 Update DEVCNT and DEVSPP 

To facilitate automatic updating (increase or decrease) of buffers and 
disk TCBs in the SPOOLER based upon the number of tasks in it/ a condi- 
tional parameter exists for each task. 


DEVCNT and DEVSPP are modified for the Line Printer (Figure 5-1) at: 
page 3/ line 13-16 

Tasks are assembled into the SPOOLER by defining the conditional 
parameters of the form: 

$XX = ZZZZOO 

where 


XX = mnemonic of the task (LP for Line Printer) 

ZZZZ = a bit configuration (0400 for LP - there is a 
bit for each task) 


6.1.13 Updating the FINDBK Routine 

Code is present in this routine to prevent allocation of the disk 
block that is currently being despooled. This is necessary to insure 
proper operation of the spooler because despooling operations are 
halted when CBN = LSB . For the line printer task (Figure 5-1) this 
is done at: 

page 12, lines 83-84, 91-92 
6.2 ASSEMBLING THE SPOOLER 

To assemble the SPOOLER with the required task in it, it may be nec- 
essary to edit the SPOLll XXX source file to supply the appropriate 
assembly parameter. To assemble the SPOOLER with the Card Reader 
task also insert the line: 

$CD = 20000 after the sub-title conditional assembly 
parameters. 

(For Plotter insert: $PL = 10000) 

An assembly of the above source (Figure 5-1) will produce a SPOOLER 
with Line Printer and Card Reader tasks. 
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API 

ATL 

CAF 

CAPIn 

CBN 

CIOD 

CRP 

XVM/DOS 

EV 

LFB 

LIOR 

LSB 

PC 

PIC 

RDRS 

REV 

XVM/RSX 
SAP In 

SIOA 

TCB 

TCBP 

TRL 

UC15 


APPENDIX A 
ABBREVIATIONS 

Automatic Priority Interrupt 
Active Task List 
Clear All Flags 

Clear APIn flag in DR15-C (CAPIO = 706104, 

CAP II = 706124 , CAP 1 2 = 706144, CAP 1 3 = 706164) 

Current Block Numbers 

Clear Input/Output done (706002) 

Current Record Pointer 

XVM Disk Operating System 

Event Variable 

Last File Block 

Load Input/Output Register (706006) 

Last Spooled Block 
Program Counter 

Position Independent Code (can be loaded any- 
where in memory) 

Read Status Register (706112) 

Request Event Variable 

XVM Real Time System Executive 

Skip on APIn flag in DRll-C (SAPI0 = 706101, 

SAP II = 706121, SAP 1 2 = 706141, SAP 1 3 = 706161) 

Skip on Input/Output data Accepted (706001) 

Task Control Block 

Task Control Block Pointer 

Task Request List 

PDP-11 Front End Processor and Interlace to XVM 
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CURRENTLY IMPLEMENTED TCBs 


* 


The general format for all task control blocks is as follows: 


15 8J 0 



ATA 

iiii 

, 

i 

i 

i jiii 

ALV 

i i i 



FCN 

iiii 

1 » 

1 q* 
1^1 

1 1 1 1 1 

TCN 

i i i i 


J t 

i i i i 

REV 

-'—I. I ■ » 

iiii 

i 


Other data 


particular 
to this task 


/ 

/ 

i 

r 

i 


word 0 
word 1 
word 2 
word 3 

word n 


ATA XVM API interrupt vector address 

ALV XVM API interrupt priority level. Must be 0, 1, 2, 
or 3 (unless FCN = 3; . 

FCN Function to perforin upon completion of this request. 
Valid values are: 

000 Interrupt XVM at location ATA, priority ALV. 

001 Do nothing (except set REV) 

003 Cause software interrupt to the PDP-11 task whose 
task code number is in ALV. 

S 0 if this request may be spooled. 

1 if this request may not be spooled. 

TCN Task code number of the task which is to process this 
request 

REV Request Event Variable. Initially zero, set to a non- 
zero value to indicate completion of the request. 

The meaning of the various return values is described 
below. 
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Returned REV value: 

1 Successful (normal) completion. 

-200 Non-existent task. The task code number (TCN) does not 
correspond to any task currently in the PIREX system. 

-300 Illegal ALV value. The request may or may not have been 
performed - see individual request descriptions. The 
XVM is interrupted at API level 3. 

-777 Node Pool empty. PIREX is temporarily out of nodes, and 

therefore is unable to insert this request into the appro- 
priate list. Reissue the request after a brief delay. 

Other The meanings of other returned REV values are given with 
the descriptions of the task control blocks to which they 
apply. 


In the sections that follow, many of the task control block diagrams 
show S and TCN combined into a single 8-bit quantity. This is done 
to indicate that the particular task may never be spooled, and thus 
S is always 1. 


B.l STOP TASK (ST) 

This task provides the capability to stop one or all tasks in PIREX. 
Stopping a task may immediately abort processing of the request the 
task is currently processing, and also any XVM originated requests 
on the task request list. The format of the task control block for 
the stop task is as follows (note that this is a non-standard task 
control block) : 


15 


«il 


unused 


A 


TCN 


200 


REV 


word 0 
word 1 
word 2 


TCN If zero, this is a stop all tasks directive. 


A If set unconditionally, abort the current request for this 

(or all) task(s). If clear, allow the request currently 
being processed by this (or each) task to complete if and 
only if the request originated from the PDP-11. Only XVM 
requests on the task request list will be aborted regard- 
less of the setting of this bit. 
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All requests which are aborted via this request will never complete? 
the request event variables (REVs) of such requests will never be set 
to a non-zero value. A permanent task which is stopped via this re- 
quest will be placed in the wait state? a temporary task will be placed 
in the stopped state. 

Returned REV values: 

1 Successful completion 

-600 Task to be stopped is not connected to PIREX. 

Only applicable when TCN f 0. 

B. 2 SOFTWARE DIRECTIVE TASK (SD) 

Descriptions of the software directives, including details of their 
task control block formats, are given in Section 3.6, Software Direc- 
tive Processing. The general task control block format for all soft- 
ware directives is as follows: 


15 8 

7 0 

ATA 

ALV 

FCN 

201 

REV 

OPR 



1 


Contents depend 
upon 

directive 


1 


word 0 
word 1 
word 2 
word 3 
word 4 

word n 


OPR Indicate the exact operation (directive) to be performed. 

For details see Section 3.6. 


Returned REV values: 

1 Successful completion 

-400 Invalid OPR (directive/operation code) values. 

Other See individual directive description in Section 3.6. 

B. 3 DISK DRIVER TASK (RK) 

The disk driver task provides the capability of using the RK05 cart- 
ridge disk system. Task control blocks directed to this task have 
the following format: 
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15 


ATA 

FCN 


8 ,7 


REV 


ALV 

202 


Block Number 


R 


6 

M 


E 


4 

S 


L 


K 

M 





A 



LSMA 


Word Count 


unused 


Unit 


Function 


RKCS 

RKER 

RKDS 


word 

0 

word 

1 

word 

2 

word 

3 

word 

4 

word 

5 

word 

6 

word 

7 

word 

10 

word 

11 

word 

12 


ATA 

Usually 047 g 

ALV 

Usually 000 

REV 

Set to 1 upon completion regardless of errors. 

Block Number 

Disk block number to transfer. 

REL 

0 if request comes from XVM 

1 if request comes from PDP-11 

64K 1 

When 1 causes an additional 64K words to be 
transferred. 

MSMA 

Core address at which to begin transfer - most 
significant bits. 

LSMA 

Core address at which to begin transfer - least 
significant bits. 

Word Count 

Two's complement of the number of words to 
transfer . 

Unit 

Disk drive (unit) number on which to perform 
the operation. 

Function 

Operation to be performed. 


A zero in the word count field (word 6) causes a 64K word transfer. 
The "64K" field (word 4) is used in conjunction with the word count 
to specify transfers greater than 64K words. Thus to transfer 65K 
words, the user would set the "64K n bit and place a minus -1024^ in 
the word count field. 
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Valid values are: 


002 

Write 


004 

Read 


006 

Write 

check 

012 

Read check 

016 

Write 

lock 


For detailed descriptions of the functions, see the RKll-E Disk 
Drive Controller Manual (DEC-1 1-HRKDA-B-D) . 

RKCS Upon completion of the operation, these three 

RKER words are loaded from the corresponding disk 

RKDS controller registers. See the RKll-E Disk 

Drive Controller Manual (DEC-ll-HRKD-B-D) for 
a description of their meaning. 

If the request originates from the PDP-11, LSMA is the 16-bit PDP-11 
byte address at which the transfer is to begin. If the request origi- 
nates from the XVM, MSMA and LSMA together are the 17-bit XVM word 
address at which the transfer is to begin. Upon completion of the 
transfer, REV is always set to 1, regardless of whether or not the 
transfer succeeded. RKCS, RKER, and RKDS must be examined to deter- 
mine whether the transfer succeeded or an error occurred. 


Returned REV Values: 

1 Request complete. Request may or may not have succeeded. 
-300 Illegal ALV value. Request complete. 

B.4 LINE PRINTER DRIVER TASK (LP) 

The task control block format is as follows: 



word 0 
word 1 
word 2 
word 3 
word 4 
word 5 
word 6 
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ATA 

ALV 

S 


Usually 056 g 
Usually 002 

Usually 0 (indicating spooled operation) 


REL 


Buffer 

Address 


0 if request originates from XVM 

1 if request originates from PDP-11 

PDP-11 byte address, if request is from PDP-11 
XVM word address, if request is from XVM 


Status Flag Unused if request is spooled. 

Cleared to zero at beginning of request proces- 
sing and set to 000001 at completion if request 
is not spooled. 


The buffer address argument refers to a line buffer of the following 
format: 


Count 

Mode 


LF 

Data 


15 8,7 0 


Mode 

Count 

LF 

unused 


Data 


word 0 
word 1 
word 2 

word n 


The number of bytes of data in the buffer. 
Excludes the four byte header. 

Indicates transfer mode. Legal values are: 

0 IOPS ASCII 

1 Image 

May be altered by the driver. 

One line of output for the line printer. 


The data sent to the line printer driver is a series of independent 
bytes. If a byte is positive, it represents a 7-bit ASCII character. 
If a byte is negative, it represents some number of spaces, the 
number of spaces being equal to the absolute value of the byte. If 
a line is in image mode, only the characters represented by the data 
bytes are output. If a line is in IOPS ASCII mode, a line feed is 
output before the beginning of the line unless the first character of 
the line is a carriage return or form feed. A carriage return is 
always output at the end of lines in IOPS ASCII mode. A line contain- 
ing just the characters carriage return followed by form feed causes 
no output in either mode, but rather represents a .CLOSE (end of file) 
operation . 
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Line printer errors are not reported via returned REV values. The only 
line printer error which can occur is for the printer to go off line 
(become not ready) . The line printer driver reports this by placing 
the value 4 in the device error byte of its entry in the DEVST table 
(see Section 3.6.4 on the Error Status Report Directive). When the 
printer comes back on line the driver clears the device error byte and 
outputs the line. Upon completion the REV is set to 1. 

Returned REV Values: 

1 Successful completion 

-300 Illegal ALV value . Action may or may not have 
been taken. 

-600 Spooler shut down. No action has been taken. 

B. 5 CARD READER DRIVER TASK (CD) 


The task control block format is as follows: 



word 0 
word 1 
word 2 
word 3 
word 4 


ATA Usually 055 

o 

ALV Usually 001 

S Usually 0 (Indicating spooled operation) 


Buffer PDP-11 byte address, if request is from PDP-11 

Address XVM word address, if request is from XVM 


The buffer address argument refers to a card buffer of the following 
format: 

15 8,7 0 

word 0 
word 1 
word 2 

word n 



Byte Count 


Checksum 

r 

Data Zt 

i 
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Byte Count Always 80^ 0 

Checksum Word checksum of the buffer (including the byte 

count) 

Data 8°io bytes (40^ Q words) of data 

The card data is not in ASCII. Each card column occupies one byte 
in the following format: 


* * * * I * 


j| I 


bits 0-2 Contents of : 

rows 1-7 

000 

no punches in 

001 

row 1 

punched 

010 

row 2 

punched 

Oil 

row 3 

punched 

100 

row 4 

punched 

101 

row 5 

punched 

110 

row 6 

punched 

111 

row 7 

punched 


encoded as follows: 
rows 1-7 


bit 3 Indicates row 8 punched 
bit 4 Indicates row 9 punched 
bit 5 Indicates zone 0 punched 
bit 6 Indicates zone 11 punched 
bit 7 Indicates zone 12 punched 


NOTE 

All combinations of punches which cannot 
be speciried in this manner are illegal. 

Any errors that occur are not reported by returned REV values. Instead 
the IOPSUC numeric error code is placed in the device error byte of the 
card reader* s entry in the DEVST table (see Section 3.6.4, Error Status 
Report Directive) . When the error condition is remedied, the driver 
clears the device error byte and the read operation continues. Ultimately 
the read completes and REV is set to 1. 

Returned REV Values: 

1 Successful completion 

-300 Illegal ALV values. Action may or may 
not have been taken. 

-700 Spooler shut down. (Despooling not enabled) 

No action taken. 
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B . 6 PLOTTER DRIVER TASK (XY) 

The task control block format is as follows: 



word 0 
word 1 
word 2 
word 3 
word 4 


ATA 

ALV 

S 

REL 

Buffer Address 


Usually 065g 
Usually 003 

Usually 0 (indicating spooled operation) 

000000 If request is from XVM 

If request is from PDP-11 

PDP-11 byte address, if request is from PDP-11. 
XVM word address, if request is from XVM. 


The buffer address argument refers to a data buffer of the following 
format: 



word 0 
word 1 
word 2 

word n 


Count The number of bytes of data in the buffer. 

Excludes the four byte header. 

Mode Indicates the function to perform and/or the 

mode in which the data should be interpreted. 
Valid modes are: 
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1 Line mode 

2 Character mode 

3 Initialize 

4 Pen select' 1 ' 

377 End of file 

Line mode data takes the following form. Each line is represented by 
a pair of data words. The first word is the incremental change in the 
X coordinate from the beginning to the end of the line, the second word 
the change in the Y coordinate. If this is to be an invisible line - 
i.e., it is to be drawn with the pen raised - lOOOOOg should be added 
to the first word (change in X) . 

Character mode data is a series of ASCII characters to be drawn# one 
character per byte. Initialize requires 8 words of data which specify 
the character size and orientation for character mode plotting. The 
pen select operation' 1 ' takes two words of data. The first is the pen 
number for the XY311 plotter (1# 2, or 3) . The contents of this word 
are destroyed by the pen select operation. The second word must be 
zero. An end of file merely raises the pen. (It also forces the XY 
data through the spooler buffers if spooling is enabled.) 

Returned REV Values: 

1 Successful completion 

-300 Illegal ALV value. Action may or may not have 
been taken. 

-600 Spooler shut down. No action taken. 


1 


This is used only by the XY311 plotter. 
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APPENDIX C 

UC15 RELATED ERROR MESSAGES 

IOPSUC YYY XXXX 

Where YYY denotes one of the following: 

EST Stop all I/O Task 

ESD Software Driver " 

RKU Disk Cartridge " 

DTU DEC TAPE " 

LPU Line Printer " 

CDU Card Reader 

PLU Plotter 

ESP Spooler 

EMA MACH 

XXXX denotes one of the following: 

3 - ILLEGAL INTERRUPT TO DRIVER 

4 - DEVICE NOT READY 
12 - DEVICE FAILURE 

15 - SPOOLER FULL WARNING MESSAGE 

20 - SPOOLER DISK FAILURE - SPOOLING DISABLED 

45 - GREATER THAN 80 COLUMNS IN 
CARD 

55 - NO SPOOLER BUFFERS AVAILABLE 
72 - ILLEGAL PUNCH COMBINATION 
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UC15 Related Error Messages 


74 - TIMING ERROR - CARD COLUMN 

LOST - RETRY CARD 

75 - HARDWARE BUSY - DRIVER NOT 

76 - HARDWARE ERROR BETWEEN 

CARDS 

77 - UNRECOGNIZED TASK REQUEST - 

DEVICE NOT PRESENT 

400 - SPOOLER EMPTY - PDR-15 INPUT 
REQUEST PENDING 


Standard format IOPS error messages : 


Error Code 
25 
27 
200 
300 

400 

500 

600 

111 


601 


602 


XY plotter - value too large for plotting. 

XY plotter - mode incorrect. 

Non-existent task referenced. 

Illegal API level given (illegal values 
are changed to level 3 and processed) . 

Illegal directive code given. 

No free core in the PDP-11 local 
memory . 

ATL node for this TCN missing. 

Request node was not available from the 
POOL; i.e., the POOL was empty and the 
referenced task was currently busy or the 
task did not have an ATL node in the 
Active Task List. 

System Memory Map Invalid 
This indicates that the memory map 
used by CONNECT/DISCONNECT is in- 
valid. PIREX should be rebooted 
before any CONNECT/DISCONNECT attempt. 

TCB Out of Range 

This indicates that the TCB address is 
not within the 28K word addressing range 
of the UNICHANNEL. 
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GLOSSARY 


Active Task 

An Active Task is one which: 

1. is currently executing 

2. has a new request pending in its queue 

3. is in a wait state 

4. has been interrupted by a higher priority task. 

Active Task List 

A priority-ordered linked list of Active Tasks used for scheduling 
tables. The ATL is a queue consisting of one node for each Active 
Task in the system. 

Busy/Idle Switch 

A two-word storage area used to save TCBP 1 s when processing a request. 
Every task has a two-word Busy/Idle Switch. If the two words are zero, 
the task is currently not busy and is able to accept and process a 
new request. Bit 15 of the first word is used by the system to deter- 
mine if the TCB came from an XVM or PDP-11 request. If zero, the re- 
quest came from the XVM, otherwise it came from the PDP-11. 

Call Side 

All spoolers have a 'call side 1 where a set of data is passed by the 
caller to the spooler (for output spooled devices/tasks ) or data is 
passed by the spooler to the caller (for input spooled devices/tasks) . 
This is done only when a request is made to the spooler. 

Context Save 

The storing of all active registers, including the program counter 
(PC) and program status (PS), on the current task's stack. These saves 
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are done when higher priority tasks interrupt lower priority ones and 
by device driver interrupt routines to allow them free use of the 
general purpose registers. 

Context Switching 

The process of saving the active registers belonging to the current 
task executing (a context save) , determining a new task to execute, 
and finally restoring the registers belonging to it. 

Deque 

Deque, pronounced deck, is a double-ended queue consisting of a list- 
head and list elements, circularly linked by both forward and backward 
pointers. Deques (linked lists) are used, instead of tables, to store 
TCB pointers and ATL information. The list elements (commonly called 
nodes) are initially obtained from a pool of empty nodes called the 
POOL. Nodes consist of listhead and 2 words of data used to store the 
caller's TCB pointer or ATL information. When a node is needed, it is 
removed from the POOL and queued to the referenced task deque of the 
ATL. When a node is no longer needed, it is zeroed and returned to 
the POOL. 

Dequeue 

Remove a node from a queue. 

Directive 

A task which performs some specific operation under PIREX, e.g., con- 
necting and disconnecting tasks. 

Driver 

A task which controls a hardware device. Drivers usually consist of 
necessary program only rudimentary operations (e.g., read, write or 
search) . The more complex operations such as file manipulations and 
syntax checking are usually performed by handlers. 
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Event Variable 


A word or variable used to determine the status of a request. The 
Event variable is set to indicate successful completion, rejection, 
status, or a request still pending condition. 

Interrupt Side 

All spoolers have an interrupt Side' where data is passed by the 
spooler to the device/tasks (for output spooled device/ tasks) or data 
is passed from the device/tasks to the spooler (for input spooler 
devices/tasks) . This occurs whenever output of data is complete or 
input data is ready. 

Linked List 

A deque consisting of nodes and listhead used to store system infor- 
mation. An empty list consists of only a listhead. 

Listhead 

A two-word core block with forward and backward pointers pointing to 
the next and previous list node or to itself if empty. The listhead 
is a reference point in a circularly-linked list. 

Local Memory 

Core memory only addressable by the PDP-11. This is ordinary 16-bit 
PDP-11 core memory. 

Node Manipulation 

The process of transferring nodes from one deque structure to another. 
Nodes 

The list elements of a deque. All nodes consist of listhead, followed 
by 2 words of data (list elements) . 


GLOSSARY-3 



Nul Task 


The Nul Task is a task which runs when no other task can. It consists 
of only PDP-11 WAIT and BR Instruction to increase UNIBUS operations. 

Permanent Task 

A task in PIREX is said to be a permanent task if it is assembled into 
PIREX, has space in all PIREX system tables and has a fixed task code 
number . 

POOL 

A linked list of empty four-word nodes for use in any deque in the 
system. The POOL is generated at assembly time and currently has 20 
decimal nodes available. 

Pop 

To remove an Item (word) from the current task's stack. 

Push 

To put an item (word) onto the current task stack. 

Queue 

To enter into a waiting list. Queues in PIREX consist only of deque 
structures . 

Scheduling 

The process of determing which task will be executed next. The opera- 
tion is based on a priority ordered list of active tasks in the system 
(ATL) . 

Shared Memory 

Core memory addressable by both the XVM and PDP-11. The shared mem- 
ory is ordinary 18-bit XVM memory. 
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Spare Task 


A task that runs under PIREX is said to be a temporary task if it is 
not assembled into PIREX, has space in all PIREX system tables, does 
not have a fixed task code number and its start address is not fixed. 

The core occupied by the temporary tasks is not freed unless the tasks 
are disconnected in the order in which they were connected. 

SPOLSW 

This is a register in PIREX which contains the spooler control and 
status switches as indicated below. 


BITS 0-7 Device busy Idle switch 
'O' is idle and 'l* busy 


BIT 0 LP 

1 CD 

2 PL 

3-7 UNUSED 


BITS 8-15 Spooler State/Function switches 

'O' if disabled and 'l 1 if enabled 


BIT 12 

13 

14 

15=1 

=0 


DESPOOLER 

SPOOLER 

SPOOLING 

SPOL11 PROGRAM CONNECTED TO PIREX 
SPOL11 PROGRAM NOT CONNECTED TO PIREX 


Task 

A PDP-11 software routine capable of being requested by the XVM or 
PDP-11 through the PIREX software system. The task may be a device 
driver, a Directive, or just a software routine used to carry out a 
specified function. A task must have the format shown in Figure 2-1. 

Task Code Number 

All tasks in the PIREX system are differentiated by a numbering system 
rather than by name. Task Code Numbers are used in TCBs and are cur- 
rently assigned as follows: 
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CODE 


-1 

200 
201 
202 
203 

4 

5 

6 
7 

11 
12 
13 

TCB - Task Control Block 

A set of continguous memory locations (minimum of three) which contain 
all necessary information for a task to complete its request. The con- 
tents of the TCB must be defined prior to the request by the requesting 
program (e.g., a XVM program). 

A pointer to the TCB (called a TCBP) is then passed to the PDP-11 via 
the LIOR instruction in the XVM or the IREQ macro in the PDP-11 to 
actually initiate the request. 

TCBP - Task Control Block Pointer 

A pointer to a TCB. This pointer is passed to the PDP-11 either via 
the LIOR instruction in the XVM or the IREQ macro in the PDP-11 when 
initiating a request to PIREX. 


CL task 
ST task 
SD task 

RK Driver task 
DT Driver task 
LP Driver task 
CD Driver task 
PL Driver task 
SPOOLER task 
currently not used 
currently not used 
currently not used 
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INDEX 


Abbreviations, list of, A-l 
ABORT request, 4-53 
ABSL11 , 1-2, 2-1 
Acronyms, list of, A-l 
Active Task List (ATL) , 3-5 
(figure) , 3-21 
nodes, 3-14 
Add a new task, 3-30 
API trap locations, 3-1, 3-7 
Assembler (ABSL11) , 1-2 
Assembling spooler, 6-6 


BEGIN routine, spooler, 6-4 
Bitmap, spooler, 5-5 
Block order for tasks, 3-34 
Bootstrap load, 1-2 
Buffers, spooler, 5-5, 6-2, 
6-6 

Byte instructions, 1-6 


Call Service routine, spooler, 
6-2 

Card Reader Driver task, B-7 
Card reader operation, 2-4 
errors, 2-5 

Character mode data, B-10 
Checksum errors, 2-2 
Clock Request Table (CLTABL) , 
3-16, 4-65 
Clock task, 3-5 
Code numbers of tasks, 4-3 
Common memory, 1-3, 1-4, 3-5 
Connect Task directive, 3-30 
Core Status Report directive, 

3- 32 

Crashes of tasks, 2-6 

CR11 XVM/RSX handler (figure) , 

4- 28 


Delete a task, 3-29 
Dequeue node (figure) , 3-26 
Despooling, 5-5, 5-32 
Device Error Status Table 
( DEVST) , 3-16 
Device driver, 

assembling and loading, 4-66 
testing, 4-66 

Device drivers, PIREX, 3-3, 
4-55 

Device handler construction, 
4-6 


Device handlers, 

XVM/DOS, 4-6 
XVM/RSX, 4-27 
Device interfaces, 1-5 
Device Interrupt Dispatcher, 
spooler, 5-3, 6-5 

Device Interrupt Service routines, 
spooler, 5-4 

Device Interrupt Servicing (LP) 
(figure) , 5-33 
Device priorities , 4-2 
Directive handling, 3-20 
Directive processing routines, 
spooler, 5-3 

Disconnect Task directive, 3-29 
Disk cartridge operation, 2-3 
errors, 2-5 
Disk Driver task, B-3 
Disk errors during spooling, 2-6 
DL support, optional, 3-4 
Drivers , 

see Device drivers 
Dump programs, 4-66, 4-67 


Editor program (EDIT) , 1-3 
End-of-deck card, 2-4 
END routine, spooler, 6-4 
Error handling, 2-5, 2-6 
Error messages, UC15, C-l 
Error status codes, 3-16 
Error Status Report directive, 
3-33 

Exit techniques, 4-63 


FINDBK routine, spooler, 6-6 
Function code, 3-8 


Hardware errors, card reader, 2-5 
Hardware interrupt, 3-1, 3-23 
(figure) , 3-24 

Hardware system, 1-3, 1-4, 1-5 


. INIT function, XVM/DOS device 
handler, 4-23 
Initialization , 
task, 4-62 

XVM/DOS handler, 4-23 
XVM/RSX device handlers, 4-27 
Internal tables, PIREX, 3-18, 3-19 
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Interrupt link, 1-5 
Interrupt processing, 4-62 
Interrupt requests, 3-23 
Interrupt Service routine, 
spooler, 6-3 

Interrupts from PDP-11 to XVM, 
4-25 

Interrupts, XVM/RSX device 
handlers, 4-53 
Interrupt vectors, 3-18 


LEVEL table, 3-17 

Line mode data, B-10 

Line Printer driver task, B-5 

Line printer operation, 2-4 

Listhead (LISTHD) , 3-15 

Lists and tables, updating, 4-4 

Loading, 

ABSL11 , 2-2 
spooler, 5-6 
system, 2-1 
XVM/ DOS , 2-2 
XVM PIREX, 2-2, 3-1 
Logic flow, PIREX, 3-11, 3-12, 
3-13, 3-21, 3-22 
LP driver (figure) , 4-57 
LP11 DOS handler (figure) , 4-7 
LP spooling/despooling, 5-31, 
5-32 

LV support, optional, 3-4 


MACH, 1-2 

MAC11 Control program, 1-3 
MCLOAD program, 1-3 
Memory, common, 1-3, 1-4, 3-5 
Memory map (figure) , 1-5 
Mnemonics for tasks, 3-34 
Mnemonics, list of, A-l 
Modifying programs, 1-3 


NUL task, 3-5, 3-20 


Operation of PIREX, 
detailed, 3-19 
flow chart, 3-2 
simplified, 3-5 
Operation of spooler, 5-5 


PDP-11 Requesting Task, 4-26 
Peripheral control, 1-3 


Peripheral processor (PDP-11) , 
1-3, 1-6 
Peripherals , 

operation of, 2-3 
UC15 , 3-23 

Permanent task, 4-4, 4-5, 4-6 
PIREX, 1-1 

active task list (figure) , 3-21 
background tasks , 3-4 
Dequeue node (figure) , 3-26 
detailed operation, 3-19 
device drivers, 3-3 
hardware interrupts (figure) , 
3-24 

loading, 3-1 
operation (figure) , 3-2 
overview, 3-1 

request processing (figure) , 
3-11 

save registers (figure) , 3-22 
services, 3-3 
simplified operation, 3-5 
software directive processing, 
3-27 

STOP TASKS Task, 3-25 
system tables and lists, 3-10 
task block order, 3-34 
task mnemonics, 3-34 
PIREX MOVE directive, 3-36 
Plotter Driver task, B-9 
Plotter operation, 2-3 
Poller routine, 3-17 
Power Fail routine, PIREX, 3-4 
Priority level, 

of background tasks, 4-2 
of devices, 4-2 
of tasks, 4-1 

Processor, PDP-11, 1-3, 1-6 
Program modification, 1-3 
Programs, support, 1-2 


Queueing, 1-1 


.READ requests, XVM/DOS handler, 
4-26 

READ requests, XVM/RSX handler, 
4-54 

Read/Write Operations (disk) , 
spooler, 6-3 

Registers (figure) , 3-22 
Request Dispatcher, spooler, 5-3, 
6-5 

Request Event Variable (REV) , 3-9 
Request procedure, 3-19 
Request processing, PIREX, 3-5 
flow chart, 3-11 
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Request servicing (figure) , 3-2 
Request transmission, 4-24 
Requests, XVM/RSX device 
handler , 4-53 


Set up TCB and Issue Request 
routine , 6-3 
Software, 

card reader errors, 2-5 
components, 2-6, 2-7, 2-8 
directive processing, 3-27 
interrupt, 3-25 
modification, 1-3 
routines in background mode, 
3-4 

Software Directive task, B-3 

Spooled task, 3-23 

SP0L11 utility routines, 1-1, 

5-4 

Spooler, 5-1 
assembly, 6-6 
components, 5-2 
components (figure) , 5-7 
design, 5-2 
errors, 2-6 
LP despooling, 5-32 
LP spooling, 5-31 
operation, 5-5, 5-36 
overview, 5-1 
task development, 6-1 
Spooler Control program (SPOOL) , 
1-2 

Spooler Disk Area Generation 
( SPLGEN) , 1-2 

Spooler Installation program 
(SPLOAD) , 1-2 

Spooler Status Report directive, 
3-35 

Spooling, 1-1 
Stack area, 3-7 
Status information, 3-1 
Status report directives, 
core, 3-32 
errors, 3-33 
spooler, 3-35 

STOP TASKS task, 3-25, B-2 
Support programs, 1-2 
Switches , 

on disk cartridge unit, 2-3 
on plotter, 2-4 
System tables and lists, 3-10 


Table, spooler, 5-5 
update, 6-5 


Task, 

code number, 3-8, 4-3 
completion, 3-25 
arashes , 2-6 
development , 4-1 
directives, 3-29 through 3-37 
entry, 4-62 
format (figure) , 3-6 
installation, 4-4 
mnemonics, 3-34 
priority level, 4-1 
program code, 4-56 
structure, 3-5 
Task Call Service routines, 
spooler, 5-3 
(figure) , 5-30 

Task Control Block Pointer (TCBP) , 
3-5 

Task Control Blocks (TCB) , B-l 
format and location for new 
blocks, 4-2 
format for PIREX, 3-7 
format for spooler, 6-4 
spooler operation, 5-5 
Task Request List (TRL) , 3-15 
Tasks , 

PDP-11, 4-26 

spooled or unspooled, 3-23 
unsupported, 3-4 
Task Starting Address (TEVADD) , 
3-17 

Temporary task, 4-4, 4-5 
Timed wakeup, 4-65 
Transfer Vector Table (SENDll) , 
3-18 


UC15 peripherals, 3-23 
UC15 software components, 2-7 
UNICHANNEL system (figures), 1-4, 
1-6 

Unspooled tasks, 3-23 
Utility routines, spooler 
(SPOLll ) , 5-4 


Wakeup feature, 4-65 
.WRITE requests, XVM/DOS handler, 
4-26 

WRITE requests, XVM/RSX handler, 
4-54 


XVM/DOS software components, 2-7 
XVM/RSX software components, 2-8 
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